STEST.LST[CM,DEK] - www.SailDart.org

perm filename STEST.LST[CM,DEK] blob sn#788861 filedate 1985-04-02 generic text, type T, neo UTF8
  1) STEST.LOG[CM,DEK] and 2) STEST.TMP[CM,DEK]	4-02-85 02:25	pages 1,1

**** File 1) STEST.LOG[CM,DEK]/1P/1L
1)	This is METAFONT, WAITS Version 0.77 (preloaded base=plain 85.3.24)  2 APR 1985 02:24
1)	**stest
**** File 2) STEST.TMP[CM,DEK]/1P/1L
2)	This is METAFONT, WAITS Version 0.8 (preloaded base=plain 85.4.2)  2 APR 1985 02:18
2)	**stest
***************


**** File 1) STEST.LOG[CM,DEK]/1P/169L
1)	{(1)<=(0)}
1)	{false}
1)	{endgroup}
**** File 2) STEST.TMP[CM,DEK]/1P/169L
2)	{(0)<=(0)}
2)	{true}
2)	{fi}
2)	{reverse(path)}
2)	{endgroup}
***************


**** File 1) STEST.LOG[CM,DEK]/1P/185L
1)	(114.44002,152)..controls (114.44002,152) and (114.44002,152)
1)	 ..(114.44002,152)..controls (84.29335,106.33333) and (54.14667,60.66667)
1)	 ..(24,15)..controls (24,14.33333) and (24,13.66667)
1)	 ..(24,13)..controls (33.18666,13) and (42.37332,13)
1)	 ..(51.55998,13)..controls (51.55998,13.66667) and (51.55998,14.33333)
1)	 ..(51.55998,15)..controls (81.70665,60.66667) and (111.85333,106.33333)
1)	 ..(142,152)..controls (142,152) and (142,152)
1)	 ..(142,152)..controls (132.81334,152) and (123.62668,152)
1)	 ..cycle
1)	Cycle spec at line 14, after subdivision and autorounding:
1)	(114.44002,152) % beginning in the sixth octant
1)	   ..controls (84.29335,106.33333) and (54.14667,60.66667)
1)	 ..(24,15) % segment 1
1)	   ..controls (24,14.33333) and (24,13.66667)
1)	 ..(24,13) % segment 2
1)	% entering the seventh octant
1)	% entering the eighth octant
1)	% entering the first octant
1)	   ..controls (33.18666,13) and (42.37332,13)
1)	 ..(51.55998,13) % segment 3
1)	% entering the second octant
1)	   ..controls (51.55998,13.66667) and (51.55998,14.33333)
1)	 ..(51.55998,15) % segment 4
1)	   ..controls (81.70665,60.66667) and (111.85333,106.33333)
1)	 ..(142,152) % segment 5
1)	% entering the third octant
1)	% entering the fourth octant
1)	% entering the fifth octant
1)	   ..controls (132.81334,152) and (123.62668,152)
1)	 ..(114.44002,152) % segment 7
1)	 & cycle
1)	Tracing edges at line 14: (weight 1)
1)	@ Octant 6 (5 offsets), from (104.94002,161) to (11,11.5)
1)	@ transition line 6, from (104.94002,161) to (104.94002,161)
1)	@ transition line 5, from (104.94002,161) to (103.44002,159)
1)	@ transition line 4, from (13,22) to (12,20)
1)	@ transition line 3, from (12,20) to (11.5,18.5)
1)	@ transition line 2, from (11.5,18.5) to (11,16.5)
1)	@ transition line 1, from (11,14.5) to (11,11.5)
1)	(105,161)(105,160)(104,160)(104,159)(103,159)(103,158)(102,158)(102,156)
1)	(101,156)(101,155)(100,155)(100,153)(99,153)(99,152)(98,152)(98,150)
1)	(97,150)(97,148)(96,148)(96,147)(95,147)(95,145)(94,145)(94,144)(93,144)
1)	(93,142)(92,142)(92,141)(91,141)(91,139)(90,139)(90,138)(89,138)(89,136)
1)	(88,136)(88,135)(87,135)(87,133)(86,133)(86,132)(85,132)(85,130)(84,130)
1)	(84,129)(83,129)(83,127)(82,127)(82,126)(81,126)(81,124)(80,124)(80,123)
1)	(79,123)(79,121)(78,121)(78,120)(77,120)(77,118)(76,118)(76,117)(75,117)
1)	(75,115)(74,115)(74,114)(73,114)(73,112)(72,112)(72,111)(71,111)(71,109)
1)	(70,109)(70,108)(69,108)(69,106)(68,106)(68,105)(67,105)(67,103)(66,103)
1)	(66,102)(65,102)(65,100)(64,100)(64,98)(63,98)(63,97)(62,97)(62,95)
1)	(61,95)(61,94)(60,94)(60,92)(59,92)(59,91)(58,91)(58,89)(57,89)(57,88)
1)	(56,88)(56,86)(55,86)(55,85)(54,85)(54,83)(53,83)(53,82)(52,82)(52,80)
1)	(51,80)(51,79)(50,79)(50,77)(49,77)(49,76)(48,76)(48,74)(47,74)(47,73)
1)	(46,73)(46,71)(45,71)(45,70)(44,70)(44,68)(43,68)(43,67)(42,67)(42,65)
1)	(41,65)(41,64)(40,64)(40,62)(39,62)(39,61)(38,61)(38,59)(37,59)(37,58)
1)	(36,58)(36,56)(35,56)(35,55)(34,55)(34,53)(33,53)(33,52)(32,52)(32,50)
1)	(31,50)(31,49)(30,49)(30,47)(29,47)(29,45)(28,45)(28,44)(27,44)(27,42)
1)	(26,42)(26,41)(25,41)(25,39)(24,39)(24,38)(23,38)(23,36)(22,36)(22,35)
1)	(21,35)(21,33)(20,33)(20,32)(19,32)(19,30)(18,30)(18,29)(17,29)(17,27)
1)	(16,27)(16,26)(15,26)(15,24)(14,24)(14,23)(13,23)(13,21)(12,21)(12,18)
1)	(11,18)
1)	@ Octant 7 (5 offsets), from (11,11.5) to (14.5,4)
1)	@ transition line 0, from (11,11.5) to (11,11.5)
1)	@ transition line 1, from (11,11.5) to (11.5,9.5)
1)	@ transition line 2, from (11.5,9.5) to (12,8)
1)	@ transition line 3, from (12,8) to (13,6)
1)	@ transition line 4, from (13,6) to (14.5,4)
1)	@ transition line 5, from (14.5,4) to (14.5,4)
1)	(11,10)(12,10)(12,7)(13,7)(13,5)(14,5)
1)	@ Octant 8 (5 offsets), from (14.5,4) to (22.5,0)
1)	@ transition line 6, from (14.5,4) to (14.5,4)
1)	@ transition line 5, from (14.5,4) to (17,2)
1)	@ transition line 4, from (17,2) to (19,1)
1)	@ transition line 3, from (19,1) to (20.5,0.5)
1)	@ transition line 2, from (20.5,0.5) to (22.5,0)
1)	@ transition line 1, from (22.5,0) to (22.5,0)
1)	(14,4)(15,4)(15,3)(16,3)(16,2)(18,2)(18,1)(21,1)
1)	@ Octant 1 (5 offsets), from (22.5,0) to (61.05998,4)
1)	@ transition line 0, from (22.5,0) to (25.5,0)
1)	@ transition line 1, from (53.05998,0) to (55.05998,0.5)
1)	@ transition line 2, from (55.05998,0.5) to (56.55998,1)
1)	@ transition line 3, from (56.55998,1) to (58.55998,2)
1)	@ transition line 4, from (58.55998,2) to (61.05998,4)
1)	@ transition line 5, from (61.05998,4) to (61.05998,4)
1)	(21,0)(55,0)(55,1)(58,1)(58,2)(59,2)(59,3)(60,3)
1)	@ Octant 2 (5 offsets), from (61.05998,4) to (155,153.5)
1)	@ transition line 6, from (61.05998,4) to (61.05998,4)
1)	@ transition line 5, from (61.05998,4) to (62.55998,6)
1)	@ transition line 4, from (62.55998,6) to (63.55998,8)
1)	@ transition line 3, from (63.55998,8) to (64.05998,9.5)
1)	@ transition line 2, from (64.05998,9.5) to (64.55998,11.5)
1)	@ transition line 1, from (64.55998,13.5) to (64.05998,11.5)
1)	@ transition line 2, from (64.05998,11.5) to (63.55998,10)
1)	@ transition line 3, from (63.55998,10) to (62.55998,8)
1)	@ transition line 4, from (153,145) to (154,147)
1)	@ transition line 3, from (154,147) to (154.5,148.5)
1)	@ transition line 2, from (154.5,148.5) to (155,150.5)
1)	@ transition line 1, from (155,150.5) to (155,153.5)
1)	(60,4)(61,4)(61,5)(62,5)(62,6)(63,6)(63,8)(64,8)(64,11)(65,11)(65,12)
1)	(66,12)(66,14)(67,14)(67,15)(68,15)(68,17)(69,17)(69,19)(70,19)(70,20)
1)	(71,20)(71,22)(72,22)(72,23)(73,23)(73,25)(74,25)(74,26)(75,26)(75,28)
1)	(76,28)(76,29)(77,29)(77,31)(78,31)(78,32)(79,32)(79,34)(80,34)(80,35)
1)	(81,35)(81,37)(82,37)(82,38)(83,38)(83,40)(84,40)(84,41)(85,41)(85,43)
1)	(86,43)(86,44)(87,44)(87,46)(88,46)(88,47)(89,47)(89,49)(90,49)(90,50)
1)	(91,50)(91,52)(92,52)(92,53)(93,53)(93,55)(94,55)(94,56)(95,56)(95,58)
1)	(96,58)(96,59)(97,59)(97,61)(98,61)(98,62)(99,62)(99,64)(100,64)(100,65)
1)	(101,65)(101,67)(102,67)(102,69)(103,69)(103,70)(104,70)(104,72)(105,72)
1)	(105,73)(106,73)(106,75)(107,75)(107,76)(108,76)(108,78)(109,78)(109,79)
1)	(110,79)(110,81)(111,81)(111,82)(112,82)(112,84)(113,84)(113,85)(114,85)
1)	(114,87)(115,87)(115,88)(116,88)(116,90)(117,90)(117,91)(118,91)(118,93)
1)	(119,93)(119,94)(120,94)(120,96)(121,96)(121,97)(122,97)(122,99)(123,99)
1)	(123,100)(124,100)(124,102)(125,102)(125,103)(126,103)(126,105)(127,105)
1)	(127,106)(128,106)(128,108)(129,108)(129,109)(130,109)(130,111)(131,111)
1)	(131,112)(132,112)(132,114)(133,114)(133,115)(134,115)(134,117)(135,117)
1)	(135,118)(136,118)(136,120)(137,120)(137,122)(138,122)(138,123)(139,123)
1)	(139,125)(140,125)(140,126)(141,126)(141,128)(142,128)(142,129)(143,129)
1)	(143,131)(144,131)(144,132)(145,132)(145,134)(146,134)(146,135)(147,135)
1)	(147,137)(148,137)(148,138)(149,138)(149,140)(150,140)(150,141)(151,141)
1)	(151,143)(152,143)(152,144)(153,144)(153,146)(154,146)(154,148)(155,148)
1)	@ Octant 3 (5 offsets), from (155,153.5) to (151.5,161)
1)	@ transition line 0, from (155,153.5) to (155,153.5)
1)	@ transition line 1, from (155,153.5) to (154.5,155.5)
1)	@ transition line 2, from (154.5,155.5) to (154,157)
1)	@ transition line 3, from (154,157) to (153,159)
1)	@ transition line 4, from (153,159) to (151.5,161)
1)	@ transition line 5, from (151.5,161) to (151.5,161)
1)	(155,156)(154,156)(154,158)(153,158)(153,160)(152,160)
1)	@ Octant 4 (5 offsets), from (151.5,161) to (143.5,165)
1)	@ transition line 6, from (151.5,161) to (151.5,161)
1)	@ transition line 5, from (151.5,161) to (149,163)
1)	@ transition line 4, from (149,163) to (147,164)
1)	@ transition line 3, from (147,164) to (145.5,164.5)
1)	@ transition line 2, from (145.5,164.5) to (143.5,165)
1)	@ transition line 1, from (143.5,165) to (143.5,165)
1)	(152,161)(151,161)(151,162)(150,162)(150,163)(148,163)(148,164)(146,164)
1)	@ Octant 5 (5 offsets), from (143.5,165) to (104.94002,161)
1)	@ transition line 0, from (143.5,165) to (140.5,165)
1)	@ transition line 1, from (112.94002,165) to (110.94002,164.5)
1)	@ transition line 2, from (110.94002,164.5) to (109.44002,164)
1)	@ transition line 3, from (109.44002,164) to (107.44002,163)
1)	@ transition line 4, from (107.44002,163) to (104.94002,161)
1)	@ transition line 5, from (104.94002,161) to (104.94002,161)
1)	(146,165)(111,165)(111,164)(108,164)(108,163)(107,163)(107,162)(106,162)
1)	(106,161).
1)	pickup<secondary>->if.numeric(EXPR0):currentpen:=pen_[(EXPR0)];pen_top:=pen_top
1)	_[(EXPR0)];pen_bot:=pen_bot_[(EXPR0)];pen_lft:=pen_lft_[(EXPR0)];pen_rt:=pen_rt
1)	_[(EXPR0)];currentpen_path:=pen_path_[(EXPR0)];else:currentpen:=(EXPR0)yscaled.
1)	aspect_ratio;pen_top:=(ypart.penoffset.left.of.currentpen)/aspect_ratio;pen_bot
1)	:=(ypart.penoffset.right.of.currentpen)/aspect_ratio;pen_lft:=xpart.penoffset.d
1)	own.of.currentpen;pen_rt:=xpart.penoffset.up.of.currentpen;path.currentpen_path
1)	;fi
1)	(EXPR0)<-2
1)	{if}
1)	{numeric(2)}
1)	{true}
1)	{currentpen:=pen}
1)	{pen_top:=13}
1)	{pen_bot:=-13}
1)	{pen_lft:=-13}
1)	{pen_rt:=13}
1)	{currentpen_path:=unknown path pen_path_2}
1)	{else}
1)	penpos@#(EXPR3)(EXPR4)->begingroup(x(SUFFIX2)r-x(SUFFIX2)l,y(SUFFIX2)r-y(SUFFIX
1)	2)l)=((EXPR3),0)rotated(EXPR4);x(SUFFIX2)=0.5(x(SUFFIX2)l+x(SUFFIX2)r);y(SUFFIX
1)	2)=0.5(y(SUFFIX2)l+y(SUFFIX2)r)endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-penpos
1)	(SUFFIX2)<-5
1)	{(26)-(25.99995)}
1)	(EXPR3)<-0.00005
1)	(EXPR4)<-90
1)	{begingroup}
1)	{(x5r)-(x5l)}
1)	{(y5r)-(y5l)}
1)	{((0.00005,0))rotated(90)}
1)	{((linearform,linearform))=((0,0.00005))}
1)	## y5r=y5l+0.00005
1)	## x5r=x5l
1)	{(x5l)+(x5l)}
1)	{(0.5)*(2x5l)}
1)	{(x5)=(x5l)}
1)	## x5=x5l
1)	{(y5l)+(y5l+0.00005)}
1)	{(0.5)*(2y5l+0.00005)}
1)	{(y5)=(y5l+0.00003)}
1)	## y5=y5l+0.00003
1)	{endgroup}
1)	penpos@#(EXPR3)(EXPR4)->begingroup(x(SUFFIX2)r-x(SUFFIX2)l,y(SUFFIX2)r-y(SUFFIX
1)	2)l)=((EXPR3),0)rotated(EXPR4);x(SUFFIX2)=0.5(x(SUFFIX2)l+x(SUFFIX2)r);y(SUFFIX
1)	2)=0.5(y(SUFFIX2)l+y(SUFFIX2)r)endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-penpos
1)	(SUFFIX2)<-6
1)	{(49)-(25.99995)}
1)	(EXPR3)<-23.00005
1)	(EXPR4)<-180
1)	{begingroup}
1)	{(x6r)-(x6l)}
1)	{(y6r)-(y6l)}
1)	{((23.00005,0))rotated(180)}
1)	{((linearform,linearform))=((-23.00005,0))}
1)	## y6r=y6l
1)	## x6r=x6l-23.00005
1)	{(x6l)+(x6l-23.00005)}
1)	{(0.5)*(2x6l-23.00005)}
1)	{(x6)=(x6l-11.50003)}
1)	## x6=x6l-11.50003
1)	{(y6l)+(y6l)}
1)	{(0.5)*(2y6l)}
1)	{(y6)=(y6l)}
1)	## y6=y6l
1)	{endgroup}
1)	top<primary>->begingroup(EXPR2)+if.pair(EXPR2):(0,pen_top)else:pen_top.fi.endgr
1)	oup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-top
1)	(EXPR2)<-y5l+0.00005
1)	{begingroup}
1)	{if}
1)	{pair(y5l+0.00005)}
1)	{false}
1)	{fi}
1)	{(y5l+0.00005)+(13)}
1)	{endgroup}
1)	{(y5l+13.00005)=(165)}
1)	## y5l=151.99995
1)	#### y5=151.99998
1)	#### y5r=152
1)	{(x5l)=(128.22002)}
1)	## x5l=128.22002
1)	#### x5=128.22002
1)	#### x5r=128.22002
1)	lft<primary>->begingroup(EXPR2)+if.pair(EXPR2):(pen_lft,0)else:pen_lft.fi.endgr
1)	oup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-lft
1)	(EXPR2)<-x6l-23.00005
1)	{begingroup}
1)	{if}
1)	{pair(x6l-23.00005)}
1)	{false}
1)	{fi}
1)	{(x6l-23.00005)+(-13)}
1)	{endgroup}
1)	round<primary>->begingroup.if.numeric(EXPR2):floor((EXPR2)+0.5)elseif.pair(EXPR
1)	2):(round.xpart(EXPR2),round.ypart(EXPR2))else:(EXPR2)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-round
1)	(EXPR2)<-22.00012
1)	{begingroup}
1)	{if}
1)	{numeric(22.00012)}
1)	{true}
1)	{(22.00012)+(0.5)}
1)	{elseif}
1)	{floor(22.50012)}
1)	{endgroup}
1)	{(x6l-36.00005)=(22)}
1)	## x6l=58.00005
1)	#### x6=46.50002
1)	#### x6r=35
1)	good.y<primary>->begingroup.vround((EXPR2)+pen_top)-pen_top.endgroup
1)	(SUFFIX0)<-good
1)	(SUFFIX1)<-y
1)	{(1.50018)/(1.4)}
1)	{(151.99995)-(1.07156)}
1)	(EXPR2)<-150.92839
1)	{begingroup}
1)	vround<primary>->begingroup.round((EXPR2)!)/aspect_ratio.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-vround
1)	{(150.92839)+(13)}
1)	(EXPR2)<-163.92839
1)	{begingroup}
1)	round<primary>->begingroup.if.numeric(EXPR2):floor((EXPR2)+0.5)elseif.pair(EXPR
1)	2):(round.xpart(EXPR2),round.ypart(EXPR2))else:(EXPR2)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-round
1)	{\}
1)	(EXPR2)<-163.92839
1)	{begingroup}
1)	{if}
1)	{numeric(163.92839)}
1)	{true}
1)	{(163.92839)+(0.5)}
1)	{elseif}
1)	{floor(164.42839)}
1)	{endgroup}
1)	{(164)/(1)}
1)	{endgroup}
1)	{(164)-(13)}
1)	{endgroup}
1)	{(y6l)=(151)}
1)	## y6l=151
1)	#### y6=151
1)	#### y6r=151
1)	arm@#(SUFFIX3)(SUFFIX4)(EXPR5)(EXPR6)->begingroup.x(SUFFIX2)0=good.x(x(SUFFIX4)
1)	r-(EXPR6));y(SUFFIX2)0=y(SUFFIX3)r;if.serifs:y(SUFFIX2)1=y(SUFFIX3)l;z(SUFFIX2)
1)	1=z(SUFFIX4)l+whatever*(z(SUFFIX4)r-z(SUFFIX2)0);z(SUFFIX2)2=0.5[z(SUFFIX3)l,z(
1)	SUFFIX2)1];filldraw.z(SUFFIX4)l{z(SUFFIX2)1-z(SUFFIX4)l}...(EXPR5)[z(SUFFIX2)1,
1)	0.5[z(SUFFIX2)2,z(SUFFIX4)l] ]...z(SUFFIX2)2---z(SUFFIX3)l--z(SUFFIX3)r--z(SUFF
1)	IX2)0--z(SUFFIX4)r--cycle;else:filldraw.z(SUFFIX3)l--z(SUFFIX3)r--z(SUFFIX2)0--
1)	z(SUFFIX4)r--cycle;fi.penlabels((SUFFIX2)0,(SUFFIX2)1,(SUFFIX2)2);endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-arm
1)	(SUFFIX2)<-a
1)	(SUFFIX3)<-5
1)	(SUFFIX4)<-6
1)	{(0.6)*(0)}
1)	(EXPR5)<-0
1)	{(0.4)*(0)}
1)	{-(0)}
1)	(EXPR6)<-0
1)	{begingroup}
1)	good.x<primary>->begingroup.round((EXPR2)+pen_lft)-pen_lft.endgroup
1)	(SUFFIX0)<-good
1)	(SUFFIX1)<-x
1)	{(35)-(0)}
1)	(EXPR2)<-35
1)	{begingroup}
1)	round<primary>->begingroup.if.numeric(EXPR2):floor((EXPR2)+0.5)elseif.pair(EXPR
1)	2):(round.xpart(EXPR2),round.ypart(EXPR2))else:(EXPR2)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-round
1)	{(35)+(-13)}
1)	(EXPR2)<-22
1)	{begingroup}
1)	{if}
1)	{numeric(22)}
1)	{true}
1)	{(22)+(0.5)}
1)	{elseif}
1)	{floor(22.5)}
1)	{endgroup}
1)	{(22)-(-13)}
1)	{endgroup}
1)	{(x.a0)=(35)}
1)	## x.a0=35
1)	{(y.a0)=(152)}
1)	## y.a0=152
1)	{if}
1)	{false}
1)	filldraw<expr>->fill.counterclockwise(EXPR0)withpen.currentpen
1)	--->{curl1}..{curl1}
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-5l
1)	{begingroup}
1)	{endgroup}
1)	--->{curl1}..{curl1}
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-5r
1)	{begingroup}
1)	{endgroup}
1)	--->{curl1}..{curl1}
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-a0
1)	{begingroup}
1)	{endgroup}
1)	--->{curl1}..{curl1}
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-6r
1)	{begingroup}
1)	{endgroup}
1)	Path at line 17, before choices:
1)	(128.22002,151.99995){curl 1}
1)	 ..{curl 1}(128.22002,152){curl 1}
1)	 ..{curl 1}(35,152){curl 1}
1)	 ..{curl 1}(35,151){curl 1}
1)	 ..{curl 1}cycle
1)	Path at line 17, after choices:
1)	(128.22002,151.99995)..controls (128.22002,151.99997) and (128.22002,151.99998)
1)	 ..(128.22002,152)..controls (97.14668,152) and (66.07333,152)
1)	 ..(35,152)..controls (35,151.66667) and (35,151.33333)
1)	 ..(35,151)..controls (66.07333,151.33331) and (97.14668,151.66664)
1)	 ..cycle
1)	(EXPR0)<-path
1)	fill<expr>->addto_currentpicture.contour↑(EXPR0)
1)	counterclockwise<primary>->begingroup.interim.autorounding:=0;if.turningnumber(
1)	EXPR2)<=0:reverse.fi(EXPR2)endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-counterclockwise
1)	(EXPR2)<-path
1)	{begingroup}
1)	{interim}
1)	{autorounding:=0}
1)	{if}
1)	{turningnumber(path)}
1)	{(1)<=(0)}
1)	{false}
1)	{endgroup}
1)	(EXPR0)<-path
1)	addto_currentpicture->addto.currentpicture
1)	{addto}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-path
1)	{begingroup}
1)	{(path)transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	Path at line 17, before subdivision into octants:
1)	(128.22002,151.99995)..controls (128.22002,151.99997) and (128.22002,151.99998)
1)	 ..(128.22002,152)..controls (97.14668,152) and (66.07333,152)
1)	 ..(35,152)..controls (35,151.66667) and (35,151.33333)
1)	 ..(35,151)..controls (66.07333,151.33331) and (97.14668,151.66664)
1)	 ..cycle
1)	Cycle spec at line 17, after subdivision and autorounding:
1)	(128,151.99995) % beginning in the second octant
1)	   ..controls (128,151.99997) and (128,151.99998)
1)	 ..(128,152) % segment 0
1)	% entering the third octant
1)	% entering the fourth octant
1)	% entering the fifth octant
1)	   ..controls (97,152) and (66,152)
1)	 ..(35,152) % segment 1
1)	% entering the sixth octant
1)	   ..controls (35,151.66667) and (35,151.33333)
1)	 ..(35,151) % segment 2
1)	% entering the seventh octant
1)	% entering the eighth octant
1)	% entering the first octant
1)	   ..controls (66,151.33331) and (97,151.66664)
1)	 ..(128,151.99995) % segment 3
1)	 & cycle
1)	Tracing edges at line 17: (weight 1)
1)	@ Octant 2 (5 offsets), from (137.5,142.99995) to (141,153.5)
1)	@ transition line 6, from (137.5,142.99995) to (137.5,142.99995)
1)	@ transition line 5, from (137.5,142.99995) to (139,144.99995)
1)	@ transition line 4, from (139,144.99995) to (140,146.99995)
1)	@ transition line 3, from (140,146.99995) to (140.5,148.49995)
1)	@ transition line 2, from (140.5,148.49995) to (141,150.49995)
1)	@ transition line 1, from (141,150.5) to (141,153.5)
1)	(138,143)(138,144)(139,144)(139,146)(140,146)(140,148)(141,148)
1)	@ Octant 3 (5 offsets), from (141,153.5) to (137.5,161)
1)	@ transition line 0, from (141,153.5) to (141,153.5)
1)	@ transition line 1, from (141,153.5) to (140.5,155.5)
1)	@ transition line 2, from (140.5,155.5) to (140,157)
1)	@ transition line 3, from (140,157) to (139,159)
1)	@ transition line 4, from (139,159) to (137.5,161)
1)	@ transition line 5, from (137.5,161) to (137.5,161)
1)	(141,156)(140,156)(140,158)(139,158)(139,160)(138,160)
1)	@ Octant 4 (5 offsets), from (137.5,161) to (129.5,165)
1)	@ transition line 6, from (137.5,161) to (137.5,161)
1)	@ transition line 5, from (137.5,161) to (135,163)
1)	@ transition line 4, from (135,163) to (133,164)
1)	@ transition line 3, from (133,164) to (131.5,164.5)
1)	@ transition line 2, from (131.5,164.5) to (129.5,165)
1)	@ transition line 1, from (129.5,165) to (129.5,165)
1)	(138,161)(137,161)(137,162)(136,162)(136,163)(134,163)(134,164)(132,164)
1)	@ Octant 5 (5 offsets), from (129.5,165) to (25.5,161)
1)	@ transition line 0, from (129.5,165) to (126.5,165)
1)	@ transition line 1, from (33.5,165) to (31.5,164.5)
1)	@ transition line 2, from (31.5,164.5) to (30,164)
1)	@ transition line 3, from (30,164) to (28,163)
1)	@ transition line 4, from (28,163) to (25.5,161)
1)	@ transition line 5, from (25.5,161) to (25.5,161)
1)	(132,165)(32,165)(32,164)(29,164)(29,163)(27,163)(27,162)(26,162)
1)	@ Octant 6 (5 offsets), from (25.5,161) to (22,149.5)
1)	@ transition line 6, from (25.5,161) to (25.5,161)
1)	@ transition line 5, from (25.5,161) to (24,159)
1)	@ transition line 4, from (24,159) to (23,157)
1)	@ transition line 3, from (23,157) to (22.5,155.5)
1)	@ transition line 2, from (22.5,155.5) to (22,153.5)
1)	@ transition line 1, from (22,152.5) to (22,149.5)
1)	(26,161)(25,161)(25,160)(24,160)(24,158)(23,158)(23,155)(22,155)
1)	@ Octant 7 (5 offsets), from (22,149.5) to (25.5,142)
1)	@ transition line 0, from (22,149.5) to (22,149.5)
1)	@ transition line 1, from (22,149.5) to (22.5,147.5)
1)	@ transition line 2, from (22.5,147.5) to (23,146)
1)	@ transition line 3, from (23,146) to (24,144)
1)	@ transition line 4, from (24,144) to (25.5,142)
1)	@ transition line 5, from (25.5,142) to (25.5,142)
1)	(22,148)(23,148)(23,145)(24,145)(24,143)(25,143)
1)	@ Octant 8 (5 offsets), from (25.5,142) to (33.5,138)
1)	@ transition line 6, from (25.5,142) to (25.5,142)
1)	@ transition line 5, from (25.5,142) to (28,140)
1)	@ transition line 4, from (28,140) to (30,139)
1)	@ transition line 3, from (30,139) to (31.5,138.5)
1)	@ transition line 2, from (31.5,138.5) to (33.5,138)
1)	@ transition line 1, from (33.5,138) to (33.5,138)
1)	(25,142)(26,142)(26,141)(27,141)(27,140)(29,140)(29,139)(32,139)
1)	@ Octant 1 (5 offsets), from (33.5,138) to (137.5,142.99995)
1)	@ transition line 0, from (33.5,138) to (36.5,138)
1)	@ transition line 1, from (129.5,138.99995) to (131.5,139.49995)
1)	@ transition line 2, from (131.5,139.49995) to (133,139.99995)
1)	@ transition line 3, from (133,139.99995) to (135,140.99995)
1)	@ transition line 4, from (135,140.99995) to (137.5,142.99995)
1)	@ transition line 5, from (137.5,142.99995) to (137.5,142.99995)
1)	(32,138)(83,138)(83,139)(132,139)(132,140)(134,140)(134,141)(136,141)
1)	(136,142)(137,142)(137,143).
1)	{fi}
1)	penlabels@#(TEXT3)->begingroup.if.proofing>1:forsuffixes$$=l,,r:forsuffixes$=(T
1)	EXT3):makelabel(SUFFIX2)(str$ $$,z$ $$);endfor.endfor.fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-penlabels
1)	(SUFFIX2)<-
1)	(TEXT3)<-a0,a1,a2
1)	{begingroup}
1)	{if}
1)	{(2)>(1)}
1)	{true}
1)	{forsuffixes}
1)	{loop value=l}
1)	{forsuffixes}
1)	{loop value=a0}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"a0l"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-a0l
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(x.a0l,y.a0l)
1)	{begingroup}
1)	{if}
1)	{known((x.a0l,y.a0l))}
1)	{false}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=a1}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"a1l"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-a1l
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(x.a1l,y.a1l)
1)	{begingroup}
1)	{if}
1)	{known((x.a1l,y.a1l))}
1)	{false}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=a2}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"a2l"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-a2l
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(x.a2l,y.a2l)
1)	{begingroup}
1)	{if}
1)	{known((x.a2l,y.a2l))}
1)	{false}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{[repeat the loop]}
1)	{loop value=}
1)	{forsuffixes}
1)	{loop value=a0}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"a0"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-a0
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(35,152)
1)	{begingroup}
1)	{if}
1)	{known((35,152))}
1)	{true}
1)	{special}
1)	{(" 0")&("a0")}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(35,152)
1)	{begingroup}
1)	{((35,152))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{xpart((35,152))}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{fi}
1)	(EXPR2)<-(35,152)
1)	{begingroup}
1)	{((35,152))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{ypart((35,152))}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=a1}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"a1"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-a1
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(x.a1,y.a1)
1)	{begingroup}
1)	{if}
1)	{known((x.a1,y.a1))}
1)	{false}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=a2}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"a2"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-a2
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(x.a2,y.a2)
1)	{begingroup}
1)	{if}
1)	{known((x.a2,y.a2))}
1)	{false}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{[repeat the loop]}
1)	{loop value=r}
1)	{forsuffixes}
1)	{loop value=a0}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"a0r"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-a0r
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(x.a0r,y.a0r)
1)	{begingroup}
1)	{if}
1)	{known((x.a0r,y.a0r))}
1)	{false}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=a1}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"a1r"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-a1r
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(x.a1r,y.a1r)
1)	{begingroup}
1)	{if}
1)	{known((x.a1r,y.a1r))}
1)	{false}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=a2}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"a2r"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-a2r
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(x.a2r,y.a2r)
1)	{begingroup}
1)	{if}
1)	{known((x.a2r,y.a2r))}
1)	{false}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{[repeat the loop]}
1)	{fi}
1)	{endgroup}
1)	{endgroup}
1)	penpos@#(EXPR3)(EXPR4)->begingroup(x(SUFFIX2)r-x(SUFFIX2)l,y(SUFFIX2)r-y(SUFFIX
1)	2)l)=((EXPR3),0)rotated(EXPR4);x(SUFFIX2)=0.5(x(SUFFIX2)l+x(SUFFIX2)r);y(SUFFIX
1)	2)=0.5(y(SUFFIX2)l+y(SUFFIX2)r)endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-penpos
1)	(SUFFIX2)<-7
1)	{(28)-(25.99995)}
1)	(EXPR3)<-2.00005
1)	{-(90)}
1)	(EXPR4)<--90
1)	{begingroup}
1)	{(x7r)-(x7l)}
1)	{(y7r)-(y7l)}
1)	{((2.00005,0))rotated(-90)}
1)	{((linearform,linearform))=((0,-2.00005))}
1)	## y7r=y7l-2.00005
1)	## x7r=x7l
1)	{(x7l)+(x7l)}
1)	{(0.5)*(2x7l)}
1)	{(x7)=(x7l)}
1)	## x7=x7l
1)	{(y7l)+(y7l-2.00005)}
1)	{(0.5)*(2y7l-2.00005)}
1)	{(y7)=(y7l-1.00003)}
1)	## y7=y7l-1.00003
1)	{endgroup}
1)	penpos@#(EXPR3)(EXPR4)->begingroup(x(SUFFIX2)r-x(SUFFIX2)l,y(SUFFIX2)r-y(SUFFIX
1)	2)l)=((EXPR3),0)rotated(EXPR4);x(SUFFIX2)=0.5(x(SUFFIX2)l+x(SUFFIX2)r);y(SUFFIX
1)	2)=0.5(y(SUFFIX2)l+y(SUFFIX2)r)endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-penpos
1)	(SUFFIX2)<-8
1)	{(49)-(25.99995)}
1)	(EXPR3)<-23.00005
1)	(EXPR4)<-0
1)	{begingroup}
1)	{(x8r)-(x8l)}
1)	{(y8r)-(y8l)}
1)	{((23.00005,0))rotated(0)}
1)	{((linearform,linearform))=((23.00005,0))}
1)	## y8r=y8l
1)	## x8r=x8l+23.00005
1)	{(x8l)+(x8l+23.00005)}
1)	{(0.5)*(2x8l+23.00005)}
1)	{(x8)=(x8l+11.50003)}
1)	## x8=x8l+11.50003
1)	{(y8l)+(y8l)}
1)	{(0.5)*(2y8l)}
1)	{(y8)=(y8l)}
1)	## y8=y8l
1)	{endgroup}
1)	bot<primary>->begingroup(EXPR2)+if.pair(EXPR2):(0,pen_bot)else:pen_bot.fi.endgr
1)	oup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-bot
1)	(EXPR2)<-y7l-2.00005
1)	{begingroup}
1)	{if}
1)	{pair(y7l-2.00005)}
1)	{false}
1)	{fi}
1)	{(y7l-2.00005)+(-13)}
1)	{endgroup}
1)	{(y7l-15.00005)=(0)}
1)	## y7l=15.00005
1)	#### y7=14.00002
1)	#### y7r=13
1)	{(x7l)=(37.78)}
1)	## x7l=37.78
1)	#### x7=37.78
1)	#### x7r=37.78
1)	rt<primary>->begingroup(EXPR2)+if.pair(EXPR2):(pen_rt,0)else:pen_rt.fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-rt
1)	(EXPR2)<-x8l+23.00005
1)	{begingroup}
1)	{if}
1)	{pair(x8l+23.00005)}
1)	{false}
1)	{fi}
1)	{(x8l+23.00005)+(13)}
1)	{endgroup}
1)	round<primary>->begingroup.if.numeric(EXPR2):floor((EXPR2)+0.5)elseif.pair(EXPR
1)	2):(round.xpart(EXPR2),round.ypart(EXPR2))else:(EXPR2)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-round
1)	{(0.75)*(22.00012)}
1)	{(176)-(16.50009)}
1)	(EXPR2)<-159.49991
1)	{begingroup}
1)	{if}
1)	{numeric(159.49991)}
1)	{true}
1)	{(159.49991)+(0.5)}
1)	{elseif}
1)	{floor(159.99991)}
1)	{endgroup}
1)	{(x8l+36.00005)=(159)}
1)	## x8l=122.99995
1)	#### x8=134.49998
1)	#### x8r=146
1)	good.y<primary>->begingroup.vround((EXPR2)+pen_top)-pen_top.endgroup
1)	(SUFFIX0)<-good
1)	(SUFFIX1)<-y
1)	{(1.50018)/(1.2)}
1)	{(15.00005)+(1.25015)}
1)	(EXPR2)<-16.2502
1)	{begingroup}
1)	vround<primary>->begingroup.round((EXPR2)!)/aspect_ratio.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-vround
1)	{(16.2502)+(13)}
1)	(EXPR2)<-29.2502
1)	{begingroup}
1)	round<primary>->begingroup.if.numeric(EXPR2):floor((EXPR2)+0.5)elseif.pair(EXPR
1)	2):(round.xpart(EXPR2),round.ypart(EXPR2))else:(EXPR2)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-round
1)	{\}
1)	(EXPR2)<-29.2502
1)	{begingroup}
1)	{if}
1)	{numeric(29.2502)}
1)	{true}
1)	{(29.2502)+(0.5)}
1)	{elseif}
1)	{floor(29.7502)}
1)	{endgroup}
1)	{(29)/(1)}
1)	{endgroup}
1)	{(29)-(13)}
1)	{endgroup}
1)	{(y8l)=(16)}
1)	## y8l=16
1)	#### y8=16
1)	#### y8r=16
1)	arm@#(SUFFIX3)(SUFFIX4)(EXPR5)(EXPR6)->begingroup.x(SUFFIX2)0=good.x(x(SUFFIX4)
1)	r-(EXPR6));y(SUFFIX2)0=y(SUFFIX3)r;if.serifs:y(SUFFIX2)1=y(SUFFIX3)l;z(SUFFIX2)
1)	1=z(SUFFIX4)l+whatever*(z(SUFFIX4)r-z(SUFFIX2)0);z(SUFFIX2)2=0.5[z(SUFFIX3)l,z(
1)	SUFFIX2)1];filldraw.z(SUFFIX4)l{z(SUFFIX2)1-z(SUFFIX4)l}...(EXPR5)[z(SUFFIX2)1,
1)	0.5[z(SUFFIX2)2,z(SUFFIX4)l] ]...z(SUFFIX2)2---z(SUFFIX3)l--z(SUFFIX3)r--z(SUFF
1)	IX2)0--z(SUFFIX4)r--cycle;else:filldraw.z(SUFFIX3)l--z(SUFFIX3)r--z(SUFFIX2)0--
1)	z(SUFFIX4)r--cycle;fi.penlabels((SUFFIX2)0,(SUFFIX2)1,(SUFFIX2)2);endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-arm
1)	(SUFFIX2)<-b
1)	(SUFFIX3)<-7
1)	(SUFFIX4)<-8
1)	{(0.6)*(0)}
1)	(EXPR5)<-0
1)	{(0.6)*(0)}
1)	(EXPR6)<-0
1)	{begingroup}
1)	good.x<primary>->begingroup.round((EXPR2)+pen_lft)-pen_lft.endgroup
1)	(SUFFIX0)<-good
1)	(SUFFIX1)<-x
1)	{(146)-(0)}
1)	(EXPR2)<-146
1)	{begingroup}
1)	round<primary>->begingroup.if.numeric(EXPR2):floor((EXPR2)+0.5)elseif.pair(EXPR
1)	2):(round.xpart(EXPR2),round.ypart(EXPR2))else:(EXPR2)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-round
1)	{(146)+(-13)}
1)	(EXPR2)<-133
1)	{begingroup}
1)	{if}
1)	{numeric(133)}
1)	{true}
1)	{(133)+(0.5)}
1)	{elseif}
1)	{floor(133.5)}
1)	{endgroup}
1)	{(133)-(-13)}
1)	{endgroup}
1)	{(x.b0)=(146)}
1)	## x.b0=146
1)	{(y.b0)=(13)}
1)	## y.b0=13
1)	{if}
1)	{false}
1)	filldraw<expr>->fill.counterclockwise(EXPR0)withpen.currentpen
1)	--->{curl1}..{curl1}
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-7l
1)	{begingroup}
1)	{endgroup}
1)	--->{curl1}..{curl1}
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-7r
1)	{begingroup}
1)	{endgroup}
1)	--->{curl1}..{curl1}
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-b0
1)	{begingroup}
1)	{endgroup}
1)	--->{curl1}..{curl1}
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-8r
1)	{begingroup}
1)	{endgroup}
1)	Path at line 20, before choices:
1)	(37.78,15.00005){curl 1}
1)	 ..{curl 1}(37.78,13){curl 1}
1)	 ..{curl 1}(146,13){curl 1}
1)	 ..{curl 1}(146,16){curl 1}
1)	 ..{curl 1}cycle
1)	Path at line 20, after choices:
1)	(37.78,15.00005)..controls (37.78,14.33336) and (37.78,13.66669)
1)	 ..(37.78,13)..controls (73.85333,13) and (109.92667,13)
1)	 ..(146,13)..controls (146,14) and (146,15)
1)	 ..(146,16)..controls (109.92667,15.66669) and (73.85333,15.33336)
1)	 ..cycle
1)	(EXPR0)<-path
1)	fill<expr>->addto_currentpicture.contour↑(EXPR0)
1)	counterclockwise<primary>->begingroup.interim.autorounding:=0;if.turningnumber(
1)	EXPR2)<=0:reverse.fi(EXPR2)endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-counterclockwise
1)	(EXPR2)<-path
1)	{begingroup}
1)	{interim}
1)	{autorounding:=0}
1)	{if}
1)	{turningnumber(path)}
1)	{(1)<=(0)}
1)	{false}
1)	{endgroup}
1)	(EXPR0)<-path
1)	addto_currentpicture->addto.currentpicture
1)	{addto}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-path
1)	{begingroup}
1)	{(path)transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	Path at line 20, before subdivision into octants:
1)	(37.78,15.00005)..controls (37.78,14.33336) and (37.78,13.66669)
1)	 ..(37.78,13)..controls (73.85333,13) and (109.92667,13)
1)	 ..(146,13)..controls (146,14) and (146,15)
1)	 ..(146,16)..controls (109.92667,15.66669) and (73.85333,15.33336)
1)	 ..cycle
1)	Cycle spec at line 20, after subdivision and autorounding:
1)	(38,15.00005) % beginning in the sixth octant
1)	   ..controls (38,14.33336) and (38,13.66669)
1)	 ..(38,13) % segment 0
1)	% entering the seventh octant
1)	% entering the eighth octant
1)	% entering the first octant
1)	   ..controls (74,13) and (110,13)
1)	 ..(146,13) % segment 1
1)	% entering the second octant
1)	   ..controls (146,14) and (146,15)
1)	 ..(146,16) % segment 2
1)	% entering the third octant
1)	% entering the fourth octant
1)	% entering the fifth octant
1)	   ..controls (110,15.66669) and (74,15.33336)
1)	 ..(38,15.00005) % segment 3
1)	 & cycle
1)	Tracing edges at line 20: (weight 1)
1)	@ Octant 6 (5 offsets), from (28.5,24.00005) to (25,11.5)
1)	@ transition line 6, from (28.5,24.00005) to (28.5,24.00005)
1)	@ transition line 5, from (28.5,24.00005) to (27,22.00005)
1)	@ transition line 4, from (27,22.00005) to (26,20.00005)
1)	@ transition line 3, from (26,20.00005) to (25.5,18.50005)
1)	@ transition line 2, from (25.5,18.50005) to (25,16.50005)
1)	@ transition line 1, from (25,14.5) to (25,11.5)
1)	(28,24)(28,23)(27,23)(27,21)(26,21)(26,19)(25,19)
1)	@ Octant 7 (5 offsets), from (25,11.5) to (28.5,4)
1)	@ transition line 0, from (25,11.5) to (25,11.5)
1)	@ transition line 1, from (25,11.5) to (25.5,9.5)
1)	@ transition line 2, from (25.5,9.5) to (26,8)
1)	@ transition line 3, from (26,8) to (27,6)
1)	@ transition line 4, from (27,6) to (28.5,4)
1)	@ transition line 5, from (28.5,4) to (28.5,4)
1)	(25,10)(26,10)(26,7)(27,7)(27,5)(28,5)
1)	@ Octant 8 (5 offsets), from (28.5,4) to (36.5,0)
1)	@ transition line 6, from (28.5,4) to (28.5,4)
1)	@ transition line 5, from (28.5,4) to (31,2)
1)	@ transition line 4, from (31,2) to (33,1)
1)	@ transition line 3, from (33,1) to (34.5,0.5)
1)	@ transition line 2, from (34.5,0.5) to (36.5,0)
1)	@ transition line 1, from (36.5,0) to (36.5,0)
1)	(28,4)(29,4)(29,3)(30,3)(30,2)(32,2)(32,1)(35,1)
1)	@ Octant 1 (5 offsets), from (36.5,0) to (155.5,4)
1)	@ transition line 0, from (36.5,0) to (39.5,0)
1)	@ transition line 1, from (147.5,0) to (149.5,0.5)
1)	@ transition line 2, from (149.5,0.5) to (151,1)
1)	@ transition line 3, from (151,1) to (153,2)
1)	@ transition line 4, from (153,2) to (155.5,4)
1)	@ transition line 5, from (155.5,4) to (155.5,4)
1)	(35,0)(150,0)(150,1)(152,1)(152,2)(154,2)(154,3)(155,3)
1)	@ Octant 2 (5 offsets), from (155.5,4) to (159,17.5)
1)	@ transition line 6, from (155.5,4) to (155.5,4)
1)	@ transition line 5, from (155.5,4) to (157,6)
1)	@ transition line 4, from (157,6) to (158,8)
1)	@ transition line 3, from (158,8) to (158.5,9.5)
1)	@ transition line 2, from (158.5,9.5) to (159,11.5)
1)	@ transition line 1, from (159,14.5) to (159,17.5)
1)	(155,4)(156,4)(156,5)(157,5)(157,7)(158,7)(158,9)(159,9)
1)	@ Octant 3 (5 offsets), from (159,17.5) to (155.5,25)
1)	@ transition line 0, from (159,17.5) to (159,17.5)
1)	@ transition line 1, from (159,17.5) to (158.5,19.5)
1)	@ transition line 2, from (158.5,19.5) to (158,21)
1)	@ transition line 3, from (158,21) to (157,23)
1)	@ transition line 4, from (157,23) to (155.5,25)
1)	@ transition line 5, from (155.5,25) to (155.5,25)
1)	(159,20)(158,20)(158,22)(157,22)(157,24)(156,24)
1)	@ Octant 4 (5 offsets), from (155.5,25) to (147.5,29)
1)	@ transition line 6, from (155.5,25) to (155.5,25)
1)	@ transition line 5, from (155.5,25) to (153,27)
1)	@ transition line 4, from (153,27) to (151,28)
1)	@ transition line 3, from (151,28) to (149.5,28.5)
1)	@ transition line 2, from (149.5,28.5) to (147.5,29)
1)	@ transition line 1, from (147.5,29) to (147.5,29)
1)	(156,25)(155,25)(155,26)(154,26)(154,27)(152,27)(152,28)(150,28)
1)	@ Octant 5 (5 offsets), from (147.5,29) to (28.5,24.00005)
1)	@ transition line 0, from (147.5,29) to (144.5,29)
1)	@ transition line 1, from (36.5,28.00005) to (34.5,27.50005)
1)	@ transition line 2, from (34.5,27.50005) to (33,27.00005)
1)	@ transition line 3, from (33,27.00005) to (31,26.00005)
1)	@ transition line 4, from (31,26.00005) to (28.5,24.00005)
1)	@ transition line 5, from (28.5,24.00005) to (28.5,24.00005)
1)	(150,29)(90,29)(90,28)(34,28)(34,27)(32,27)(32,26)(30,26)(30,25)(29,25)
1)	(29,24).
1)	{fi}
1)	penlabels@#(TEXT3)->begingroup.if.proofing>1:forsuffixes$$=l,,r:forsuffixes$=(T
1)	EXT3):makelabel(SUFFIX2)(str$ $$,z$ $$);endfor.endfor.fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-penlabels
1)	(SUFFIX2)<-
1)	(TEXT3)<-b0,b1,b2
1)	{begingroup}
1)	{if}
1)	{(2)>(1)}
1)	{true}
1)	{forsuffixes}
1)	{loop value=l}
1)	{forsuffixes}
1)	{loop value=b0}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"b0l"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-b0l
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(x.b0l,y.b0l)
1)	{begingroup}
1)	{if}
1)	{known((x.b0l,y.b0l))}
1)	{false}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=b1}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"b1l"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-b1l
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(x.b1l,y.b1l)
1)	{begingroup}
1)	{if}
1)	{known((x.b1l,y.b1l))}
1)	{false}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=b2}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"b2l"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-b2l
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(x.b2l,y.b2l)
1)	{begingroup}
1)	{if}
1)	{known((x.b2l,y.b2l))}
1)	{false}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{[repeat the loop]}
1)	{loop value=}
1)	{forsuffixes}
1)	{loop value=b0}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"b0"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-b0
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(146,13)
1)	{begingroup}
1)	{if}
1)	{known((146,13))}
1)	{true}
1)	{special}
1)	{(" 0")&("b0")}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(146,13)
1)	{begingroup}
1)	{((146,13))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{xpart((146,13))}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{fi}
1)	(EXPR2)<-(146,13)
1)	{begingroup}
1)	{((146,13))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{ypart((146,13))}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=b1}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"b1"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-b1
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(x.b1,y.b1)
1)	{begingroup}
1)	{if}
1)	{known((x.b1,y.b1))}
1)	{false}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=b2}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"b2"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-b2
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(x.b2,y.b2)
1)	{begingroup}
1)	{if}
1)	{known((x.b2,y.b2))}
1)	{false}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{[repeat the loop]}
1)	{loop value=r}
1)	{forsuffixes}
1)	{loop value=b0}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"b0r"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-b0r
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(x.b0r,y.b0r)
1)	{begingroup}
1)	{if}
1)	{known((x.b0r,y.b0r))}
1)	{false}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=b1}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"b1r"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-b1r
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(x.b1r,y.b1r)
1)	{begingroup}
1)	{if}
1)	{known((x.b1r,y.b1r))}
1)	{false}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=b2}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"b2r"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-b2r
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(x.b2r,y.b2r)
1)	{begingroup}
1)	{if}
1)	{known((x.b2r,y.b2r))}
1)	{false}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{[repeat the loop]}
1)	{fi}
1)	{endgroup}
1)	{endgroup}
1)	penlabels@#(TEXT3)->begingroup.if.proofing>1:forsuffixes$$=l,,r:forsuffixes$=(T
1)	EXT3):makelabel(SUFFIX2)(str$ $$,z$ $$);endfor.endfor.fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-penlabels
1)	(SUFFIX2)<-
1)	(TEXT3)<-1,2,3,4,5,6,7,8
1)	{begingroup}
1)	{if}
1)	{(2)>(1)}
1)	{true}
1)	{forsuffixes}
1)	{loop value=l}
1)	{forsuffixes}
1)	{loop value=1}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"1l"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-1l
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(114.44002,152)
1)	{begingroup}
1)	{if}
1)	{known((114.44002,152))}
1)	{true}
1)	{special}
1)	{(" 0")&("1l")}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(114.44002,152)
1)	{begingroup}
1)	{((114.44002,152))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{xpart((114.44002,152))}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{fi}
1)	(EXPR2)<-(114.44002,152)
1)	{begingroup}
1)	{((114.44002,152))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{ypart((114.44002,152))}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=2}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"2l"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-2l
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(114.44002,152)
1)	{begingroup}
1)	{if}
1)	{known((114.44002,152))}
1)	{true}
1)	{special}
1)	{(" 0")&("2l")}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(114.44002,152)
1)	{begingroup}
1)	{((114.44002,152))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{xpart((114.44002,152))}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{fi}
1)	(EXPR2)<-(114.44002,152)
1)	{begingroup}
1)	{((114.44002,152))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{ypart((114.44002,152))}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=3}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"3l"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-3l
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(24,15)
1)	{begingroup}
1)	{if}
1)	{known((24,15))}
1)	{true}
1)	{special}
1)	{(" 0")&("3l")}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(24,15)
1)	{begingroup}
1)	{((24,15))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{xpart((24,15))}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{fi}
1)	(EXPR2)<-(24,15)
1)	{begingroup}
1)	{((24,15))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{ypart((24,15))}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=4}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"4l"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-4l
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(24,13)
1)	{begingroup}
1)	{if}
1)	{known((24,13))}
1)	{true}
1)	{special}
1)	{(" 0")&("4l")}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(24,13)
1)	{begingroup}
1)	{((24,13))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{xpart((24,13))}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{fi}
1)	(EXPR2)<-(24,13)
1)	{begingroup}
1)	{((24,13))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{ypart((24,13))}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=5}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"5l"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-5l
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(128.22002,151.99995)
1)	{begingroup}
1)	{if}
1)	{known((128.22002,151.99995))}
1)	{true}
1)	{special}
1)	{(" 0")&("5l")}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(128.22002,151.99995)
1)	{begingroup}
1)	{((128.22002,151.99995))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{xpart((128.22002,151.99995))}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{fi}
1)	(EXPR2)<-(128.22002,151.99995)
1)	{begingroup}
1)	{((128.22002,151.99995))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{ypart((128.22002,151.99995))}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=6}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"6l"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-6l
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(58.00005,151)
1)	{begingroup}
1)	{if}
1)	{known((58.00005,151))}
1)	{true}
1)	{special}
1)	{(" 0")&("6l")}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(58.00005,151)
1)	{begingroup}
1)	{((58.00005,151))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{xpart((58.00005,151))}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{fi}
1)	(EXPR2)<-(58.00005,151)
1)	{begingroup}
1)	{((58.00005,151))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{ypart((58.00005,151))}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=7}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"7l"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-7l
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(37.78,15.00005)
1)	{begingroup}
1)	{if}
1)	{known((37.78,15.00005))}
1)	{true}
1)	{special}
1)	{(" 0")&("7l")}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(37.78,15.00005)
1)	{begingroup}
1)	{((37.78,15.00005))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{xpart((37.78,15.00005))}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{fi}
1)	(EXPR2)<-(37.78,15.00005)
1)	{begingroup}
1)	{((37.78,15.00005))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{ypart((37.78,15.00005))}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=8}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"8l"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-8l
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(122.99995,16)
1)	{begingroup}
1)	{if}
1)	{known((122.99995,16))}
1)	{true}
1)	{special}
1)	{(" 0")&("8l")}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(122.99995,16)
1)	{begingroup}
1)	{((122.99995,16))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{xpart((122.99995,16))}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{fi}
1)	(EXPR2)<-(122.99995,16)
1)	{begingroup}
1)	{((122.99995,16))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{ypart((122.99995,16))}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{[repeat the loop]}
1)	{loop value=}
1)	{forsuffixes}
1)	{loop value=1}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"1"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-1
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(128.22002,152)
1)	{begingroup}
1)	{if}
1)	{known((128.22002,152))}
1)	{true}
1)	{special}
1)	{(" 0")&("1")}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(128.22002,152)
1)	{begingroup}
1)	{((128.22002,152))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{xpart((128.22002,152))}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{fi}
1)	(EXPR2)<-(128.22002,152)
1)	{begingroup}
1)	{((128.22002,152))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{ypart((128.22002,152))}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=2}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"2"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-2
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(128.22002,152)
1)	{begingroup}
1)	{if}
1)	{known((128.22002,152))}
1)	{true}
1)	{special}
1)	{(" 0")&("2")}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(128.22002,152)
1)	{begingroup}
1)	{((128.22002,152))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{xpart((128.22002,152))}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{fi}
1)	(EXPR2)<-(128.22002,152)
1)	{begingroup}
1)	{((128.22002,152))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{ypart((128.22002,152))}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=3}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"3"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-3
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(37.78,15)
1)	{begingroup}
1)	{if}
1)	{known((37.78,15))}
1)	{true}
1)	{special}
1)	{(" 0")&("3")}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(37.78,15)
1)	{begingroup}
1)	{((37.78,15))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{xpart((37.78,15))}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{fi}
1)	(EXPR2)<-(37.78,15)
1)	{begingroup}
1)	{((37.78,15))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{ypart((37.78,15))}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=4}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"4"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-4
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(37.78,13)
1)	{begingroup}
1)	{if}
1)	{known((37.78,13))}
1)	{true}
1)	{special}
1)	{(" 0")&("4")}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(37.78,13)
1)	{begingroup}
1)	{((37.78,13))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{xpart((37.78,13))}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{fi}
1)	(EXPR2)<-(37.78,13)
1)	{begingroup}
1)	{((37.78,13))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{ypart((37.78,13))}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=5}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"5"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-5
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(128.22002,151.99998)
1)	{begingroup}
1)	{if}
1)	{known((128.22002,151.99998))}
1)	{true}
1)	{special}
1)	{(" 0")&("5")}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(128.22002,151.99998)
1)	{begingroup}
1)	{((128.22002,151.99998))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{xpart((128.22002,151.99998))}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{fi}
1)	(EXPR2)<-(128.22002,151.99998)
1)	{begingroup}
1)	{((128.22002,151.99998))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{ypart((128.22002,151.99998))}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=6}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"6"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-6
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(46.50002,151)
1)	{begingroup}
1)	{if}
1)	{known((46.50002,151))}
1)	{true}
1)	{special}
1)	{(" 0")&("6")}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(46.50002,151)
1)	{begingroup}
1)	{((46.50002,151))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{xpart((46.50002,151))}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{fi}
1)	(EXPR2)<-(46.50002,151)
1)	{begingroup}
1)	{((46.50002,151))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{ypart((46.50002,151))}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=7}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"7"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-7
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(37.78,14.00002)
1)	{begingroup}
1)	{if}
1)	{known((37.78,14.00002))}
1)	{true}
1)	{special}
1)	{(" 0")&("7")}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(37.78,14.00002)
1)	{begingroup}
1)	{((37.78,14.00002))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{xpart((37.78,14.00002))}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{fi}
1)	(EXPR2)<-(37.78,14.00002)
1)	{begingroup}
1)	{((37.78,14.00002))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{ypart((37.78,14.00002))}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=8}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"8"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-8
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(134.49998,16)
1)	{begingroup}
1)	{if}
1)	{known((134.49998,16))}
1)	{true}
1)	{special}
1)	{(" 0")&("8")}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(134.49998,16)
1)	{begingroup}
1)	{((134.49998,16))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{xpart((134.49998,16))}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{fi}
1)	(EXPR2)<-(134.49998,16)
1)	{begingroup}
1)	{((134.49998,16))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{ypart((134.49998,16))}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{[repeat the loop]}
1)	{loop value=r}
1)	{forsuffixes}
1)	{loop value=1}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"1r"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-1r
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(142,152)
1)	{begingroup}
1)	{if}
1)	{known((142,152))}
1)	{true}
1)	{special}
1)	{(" 0")&("1r")}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(142,152)
1)	{begingroup}
1)	{((142,152))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{xpart((142,152))}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{fi}
1)	(EXPR2)<-(142,152)
1)	{begingroup}
1)	{((142,152))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{ypart((142,152))}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=2}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"2r"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-2r
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(142,152)
1)	{begingroup}
1)	{if}
1)	{known((142,152))}
1)	{true}
1)	{special}
1)	{(" 0")&("2r")}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(142,152)
1)	{begingroup}
1)	{((142,152))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{xpart((142,152))}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{fi}
1)	(EXPR2)<-(142,152)
1)	{begingroup}
1)	{((142,152))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{ypart((142,152))}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=3}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"3r"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-3r
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(51.55998,15)
1)	{begingroup}
1)	{if}
1)	{known((51.55998,15))}
1)	{true}
1)	{special}
1)	{(" 0")&("3r")}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(51.55998,15)
1)	{begingroup}
1)	{((51.55998,15))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{xpart((51.55998,15))}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{fi}
1)	(EXPR2)<-(51.55998,15)
1)	{begingroup}
1)	{((51.55998,15))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{ypart((51.55998,15))}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=4}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"4r"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-4r
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(51.55998,13)
1)	{begingroup}
1)	{if}
1)	{known((51.55998,13))}
1)	{true}
1)	{special}
1)	{(" 0")&("4r")}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(51.55998,13)
1)	{begingroup}
1)	{((51.55998,13))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{xpart((51.55998,13))}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{fi}
1)	(EXPR2)<-(51.55998,13)
1)	{begingroup}
1)	{((51.55998,13))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{ypart((51.55998,13))}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=5}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"5r"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-5r
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(128.22002,152)
1)	{begingroup}
1)	{if}
1)	{known((128.22002,152))}
1)	{true}
1)	{special}
1)	{(" 0")&("5r")}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(128.22002,152)
1)	{begingroup}
1)	{((128.22002,152))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{xpart((128.22002,152))}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{fi}
1)	(EXPR2)<-(128.22002,152)
1)	{begingroup}
1)	{((128.22002,152))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{ypart((128.22002,152))}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=6}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"6r"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-6r
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(35,151)
1)	{begingroup}
1)	{if}
1)	{known((35,151))}
1)	{true}
1)	{special}
1)	{(" 0")&("6r")}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(35,151)
1)	{begingroup}
1)	{((35,151))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{xpart((35,151))}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{fi}
1)	(EXPR2)<-(35,151)
1)	{begingroup}
1)	{((35,151))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{ypart((35,151))}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=7}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"7r"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-7r
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(37.78,13)
1)	{begingroup}
1)	{if}
1)	{known((37.78,13))}
1)	{true}
1)	{special}
1)	{(" 0")&("7r")}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(37.78,13)
1)	{begingroup}
1)	{((37.78,13))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{xpart((37.78,13))}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{fi}
1)	(EXPR2)<-(37.78,13)
1)	{begingroup}
1)	{((37.78,13))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{ypart((37.78,13))}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{loop value=8}
1)	makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
1)	EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-makelabel
1)	(SUFFIX2)<-
1)	(EXPR3)<-"8r"
1)	z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-z
1)	(SUFFIX2)<-8r
1)	{begingroup}
1)	{endgroup}
1)	(EXPR4)<-(146,16)
1)	{begingroup}
1)	{if}
1)	{known((146,16))}
1)	{true}
1)	{special}
1)	{(" 0")&("8r")}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(146,16)
1)	{begingroup}
1)	{((146,16))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{xpart((146,16))}
1)	{numspecial}
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{fi}
1)	(EXPR2)<-(146,16)
1)	{begingroup}
1)	{((146,16))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	{ypart((146,16))}
1)	{endgroup}
1)	{[repeat the loop]}
1)	{[repeat the loop]}
1)	{fi}
1)	{endgroup}
1)	endchar->echar;stop"done with char "&decimal.charcode&". "
1)	echar->scantokens.extra_endchar;if.proofing>0:makebox(proofrule);fi.chardx:=w;s
1)	hipit;if.displaying>0:makebox(screenrule);showit;fi.endgroup
1)	{scantokens}
1)	{(172)-(0)}
1)	{w:=172}
1)	## w=172
1)	{if}
1)	{(2)>(0)}
1)	{true}
1)	makebox(TEXT0)->for.y=0,asc_height,body_height,x_height,bar_height,-desc_depth,
1)	-body_depth:(TEXT0)(↑(l,y),↑(r,y));endfor.for.x=l,r:(TEXT0)(↑(x,-body_depth),↑(
1)	x,body_height));endfor.for.x=u*(1+floor(l/u))step.u.until.r-1:(TEXT0)(↑(x,-body
1)	_depth),↑(x,body_height));endfor.if.charic≠0:(TEXT0)((r+charic*pt,h!),(r+charic
1)	*pt,0.5h!));fi
1)	(TEXT0)<-proofrule
1)	{for}
1)	{-(70)}
1)	{-(90)}
1)	{loop value=0}
1)	proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
1)	(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(0,0)
1)	{begingroup}
1)	{((0,0))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(0,0)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(172,0)
1)	{begingroup}
1)	{((172,0))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(172,0)
1)	{special}
1)	{numspecial}
1)	{xpart((0,0))}
1)	{numspecial}
1)	{ypart((0,0))}
1)	{numspecial}
1)	{xpart((172,0))}
1)	{numspecial}
1)	{ypart((172,0))}
1)	{[repeat the loop]}
1)	{loop value=250}
1)	proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
1)	(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(0,250)
1)	{begingroup}
1)	{((0,250))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(0,250)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(172,250)
1)	{begingroup}
1)	{((172,250))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(172,250)
1)	{special}
1)	{numspecial}
1)	{xpart((0,250))}
1)	{numspecial}
1)	{ypart((0,250))}
1)	{numspecial}
1)	{xpart((172,250))}
1)	{numspecial}
1)	{ypart((172,250))}
1)	{[repeat the loop]}
1)	{loop value=270}
1)	proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
1)	(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(0,270)
1)	{begingroup}
1)	{((0,270))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(0,270)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(172,270)
1)	{begingroup}
1)	{((172,270))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(172,270)
1)	{special}
1)	{numspecial}
1)	{xpart((0,270))}
1)	{numspecial}
1)	{ypart((0,270))}
1)	{numspecial}
1)	{xpart((172,270))}
1)	{numspecial}
1)	{ypart((172,270))}
1)	{[repeat the loop]}
1)	{loop value=165}
1)	proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
1)	(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(0,165)
1)	{begingroup}
1)	{((0,165))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(0,165)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(172,165)
1)	{begingroup}
1)	{((172,165))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(172,165)
1)	{special}
1)	{numspecial}
1)	{xpart((0,165))}
1)	{numspecial}
1)	{ypart((0,165))}
1)	{numspecial}
1)	{xpart((172,165))}
1)	{numspecial}
1)	{ypart((172,165))}
1)	{[repeat the loop]}
1)	{loop value=90}
1)	proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
1)	(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(0,90)
1)	{begingroup}
1)	{((0,90))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(0,90)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(172,90)
1)	{begingroup}
1)	{((172,90))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(172,90)
1)	{special}
1)	{numspecial}
1)	{xpart((0,90))}
1)	{numspecial}
1)	{ypart((0,90))}
1)	{numspecial}
1)	{xpart((172,90))}
1)	{numspecial}
1)	{ypart((172,90))}
1)	{[repeat the loop]}
1)	{loop value=-70}
1)	proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
1)	(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(0,-70)
1)	{begingroup}
1)	{((0,-70))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(0,-70)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(172,-70)
1)	{begingroup}
1)	{((172,-70))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(172,-70)
1)	{special}
1)	{numspecial}
1)	{xpart((0,-70))}
1)	{numspecial}
1)	{ypart((0,-70))}
1)	{numspecial}
1)	{xpart((172,-70))}
1)	{numspecial}
1)	{ypart((172,-70))}
1)	{[repeat the loop]}
1)	{loop value=-90}
1)	proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
1)	(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(0,-90)
1)	{begingroup}
1)	{((0,-90))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(0,-90)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(172,-90)
1)	{begingroup}
1)	{((172,-90))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(172,-90)
1)	{special}
1)	{numspecial}
1)	{xpart((0,-90))}
1)	{numspecial}
1)	{ypart((0,-90))}
1)	{numspecial}
1)	{xpart((172,-90))}
1)	{numspecial}
1)	{ypart((172,-90))}
1)	{[repeat the loop]}
1)	{for}
1)	{loop value=0}
1)	proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
1)	(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{-(90)}
1)	(EXPR2)<-(0,-90)
1)	{begingroup}
1)	{((0,-90))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(0,-90)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(0,270)
1)	{begingroup}
1)	{((0,270))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(0,270)
1)	{special}
1)	{numspecial}
1)	{xpart((0,-90))}
1)	{numspecial}
1)	{ypart((0,-90))}
1)	{numspecial}
1)	{xpart((0,270))}
1)	{numspecial}
1)	{ypart((0,270))}
1)	{[repeat the loop]}
1)	{loop value=172}
1)	proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
1)	(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{-(90)}
1)	(EXPR2)<-(172,-90)
1)	{begingroup}
1)	{((172,-90))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(172,-90)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(172,270)
1)	{begingroup}
1)	{((172,270))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(172,270)
1)	{special}
1)	{numspecial}
1)	{xpart((172,-90))}
1)	{numspecial}
1)	{ypart((172,-90))}
1)	{numspecial}
1)	{xpart((172,270))}
1)	{numspecial}
1)	{ypart((172,270))}
1)	{[repeat the loop]}
1)	{for}
1)	{(0)/(22.00012)}
1)	{floor(0)}
1)	{(1)+(0)}
1)	{(22.00012)*(1)}
1)	{(172)-(1)}
1)	{loop value=22.00012}
1)	proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
1)	(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{-(90)}
1)	(EXPR2)<-(22.00012,-90)
1)	{begingroup}
1)	{((22.00012,-90))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(22.00012,-90)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(22.00012,270)
1)	{begingroup}
1)	{((22.00012,270))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(22.00012,270)
1)	{special}
1)	{numspecial}
1)	{xpart((22.00012,-90))}
1)	{numspecial}
1)	{ypart((22.00012,-90))}
1)	{numspecial}
1)	{xpart((22.00012,270))}
1)	{numspecial}
1)	{ypart((22.00012,270))}
1)	{[repeat the loop]}
1)	{loop value=44.00024}
1)	proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
1)	(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{-(90)}
1)	(EXPR2)<-(44.00024,-90)
1)	{begingroup}
1)	{((44.00024,-90))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(44.00024,-90)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(44.00024,270)
1)	{begingroup}
1)	{((44.00024,270))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(44.00024,270)
1)	{special}
1)	{numspecial}
1)	{xpart((44.00024,-90))}
1)	{numspecial}
1)	{ypart((44.00024,-90))}
1)	{numspecial}
1)	{xpart((44.00024,270))}
1)	{numspecial}
1)	{ypart((44.00024,270))}
1)	{[repeat the loop]}
1)	{loop value=66.00037}
1)	proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
1)	(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{-(90)}
1)	(EXPR2)<-(66.00037,-90)
1)	{begingroup}
1)	{((66.00037,-90))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(66.00037,-90)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(66.00037,270)
1)	{begingroup}
1)	{((66.00037,270))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(66.00037,270)
1)	{special}
1)	{numspecial}
1)	{xpart((66.00037,-90))}
1)	{numspecial}
1)	{ypart((66.00037,-90))}
1)	{numspecial}
1)	{xpart((66.00037,270))}
1)	{numspecial}
1)	{ypart((66.00037,270))}
1)	{[repeat the loop]}
1)	{loop value=88.00049}
1)	proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
1)	(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{-(90)}
1)	(EXPR2)<-(88.00049,-90)
1)	{begingroup}
1)	{((88.00049,-90))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(88.00049,-90)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(88.00049,270)
1)	{begingroup}
1)	{((88.00049,270))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(88.00049,270)
1)	{special}
1)	{numspecial}
1)	{xpart((88.00049,-90))}
1)	{numspecial}
1)	{ypart((88.00049,-90))}
1)	{numspecial}
1)	{xpart((88.00049,270))}
1)	{numspecial}
1)	{ypart((88.00049,270))}
1)	{[repeat the loop]}
1)	{loop value=110.00061}
1)	proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
1)	(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{-(90)}
1)	(EXPR2)<-(110.00061,-90)
1)	{begingroup}
1)	{((110.00061,-90))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(110.00061,-90)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(110.00061,270)
1)	{begingroup}
1)	{((110.00061,270))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(110.00061,270)
1)	{special}
1)	{numspecial}
1)	{xpart((110.00061,-90))}
1)	{numspecial}
1)	{ypart((110.00061,-90))}
1)	{numspecial}
1)	{xpart((110.00061,270))}
1)	{numspecial}
1)	{ypart((110.00061,270))}
1)	{[repeat the loop]}
1)	{loop value=132.00073}
1)	proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
1)	(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{-(90)}
1)	(EXPR2)<-(132.00073,-90)
1)	{begingroup}
1)	{((132.00073,-90))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(132.00073,-90)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(132.00073,270)
1)	{begingroup}
1)	{((132.00073,270))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(132.00073,270)
1)	{special}
1)	{numspecial}
1)	{xpart((132.00073,-90))}
1)	{numspecial}
1)	{ypart((132.00073,-90))}
1)	{numspecial}
1)	{xpart((132.00073,270))}
1)	{numspecial}
1)	{ypart((132.00073,270))}
1)	{[repeat the loop]}
1)	{loop value=154.00085}
1)	proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
1)	(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{-(90)}
1)	(EXPR2)<-(154.00085,-90)
1)	{begingroup}
1)	{((154.00085,-90))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(154.00085,-90)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(154.00085,270)
1)	{begingroup}
1)	{((154.00085,270))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(154.00085,270)
1)	{special}
1)	{numspecial}
1)	{xpart((154.00085,-90))}
1)	{numspecial}
1)	{ypart((154.00085,-90))}
1)	{numspecial}
1)	{xpart((154.00085,270))}
1)	{numspecial}
1)	{ypart((154.00085,270))}
1)	{[repeat the loop]}
1)	{if}
1)	{(0)<>(0)}
1)	{false}
1)	{fi}
1)	{chardx:=172}
1)	shipit->shipout.currentpicture
1)	{shipout}
1)	 [122]
1)	Edge structure at line 21 (just shipped out):
1)	row 164: | 32+ 111+ 132- 146-
1)	row 163: | 29+ 108+ 134- 148-
1)	row 162: | 27+ 107+ 136- 150-
1)	row 161: | 26+ 106+ 137- 151-
1)	row 160: | 25+ 105+ 138- 152-
1)	row 159: | 24+ 104+ 139- 153-
1)	row 158: | 24+ 103+ 139- 153-
1)	row 157: | 23+ 102+ 140- 154-
1)	row 156: | 23+ 102+ 140- 154-
1)	row 155: | 23+ 101+ 141- 155-
1)	row 154: | 22+ 100+ 141- 155-
1)	row 153: | 22+ 100+ 141- 155-
1)	row 152: | 22+ 99+ 141- 155-
1)	row 151: | 22+ 98+ 141- 155-
1)	row 150: | 22+ 98+ 141- 155-
1)	row 149: | 22+ 97+ 141- 155-
1)	row 148: | 22+ 97+ 141- 155-
1)	row 147: | 23+ 96+ 140- 154-
1)	row 146: | 23+ 95+ 140- 154-
1)	row 145: | 23+ 95+ 139- 153-
1)	row 144: | 24+ 94+ 139- 153-
1)	row 143: | 24+ 93+ 138- 152-
1)	row 142: | 25+ 93+ 137- 151-
1)	row 141: | 26+ 92+ 136- 151-
1)	row 140: | 27+ 91+ 134- 150-
1)	row 139: | 29+ 91+ 132- 149-
1)	row 138: | 32+ 83- 90+ 149-
1)	row 137: | 89+ 148-
1)	row 136: | 89+ 147-
1)	row 135: | 88+ 147-
1)	row 134: | 87+ 146-
1)	row 133: | 87+ 145-
1)	row 132: | 86+ 145-
1)	row 131: | 85+ 144-
1)	row 130: | 85+ 143-
1)	row 129: | 84+ 143-
1)	row 128: | 83+ 142-
1)	row 127: | 83+ 141-
1)	row 126: | 82+ 141-
1)	row 125: | 81+ 140-
1)	row 124: | 81+ 139-
1)	row 123: | 80+ 139-
1)	row 122: | 79+ 138-
1)	row 121: | 79+ 137-
1)	row 120: | 78+ 137-
1)	row 119: | 77+ 136-
1)	row 118: | 77+ 136-
1)	row 117: | 76+ 135-
1)	row 116: | 75+ 134-
1)	row 115: | 75+ 134-
1)	row 114: | 74+ 133-
1)	row 113: | 73+ 132-
1)	row 112: | 73+ 132-
1)	row 111: | 72+ 131-
1)	row 110: | 71+ 130-
1)	row 109: | 71+ 130-
1)	row 108: | 70+ 129-
1)	row 107: | 69+ 128-
1)	row 106: | 69+ 128-
1)	row 105: | 68+ 127-
1)	row 104: | 67+ 126-
1)	row 103: | 67+ 126-
1)	row 102: | 66+ 125-
1)	row 101: | 65+ 124-
1)	row 100: | 65+ 124-
1)	row 99: | 64+ 123-
1)	row 98: | 64+ 122-
1)	row 97: | 63+ 122-
1)	row 96: | 62+ 121-
1)	row 95: | 62+ 120-
1)	row 94: | 61+ 120-
1)	row 93: | 60+ 119-
1)	row 92: | 60+ 118-
1)	row 91: | 59+ 118-
1)	row 90: | 58+ 117-
1)	row 89: | 58+ 116-
1)	row 88: | 57+ 116-
1)	row 87: | 56+ 115-
1)	row 86: | 56+ 114-
1)	row 85: | 55+ 114-
1)	row 84: | 54+ 113-
1)	row 83: | 54+ 112-
1)	row 82: | 53+ 112-
1)	row 81: | 52+ 111-
1)	row 80: | 52+ 110-
1)	row 79: | 51+ 110-
1)	row 78: | 50+ 109-
1)	row 77: | 50+ 108-
1)	row 76: | 49+ 108-
1)	row 75: | 48+ 107-
1)	row 74: | 48+ 106-
1)	row 73: | 47+ 106-
1)	row 72: | 46+ 105-
1)	row 71: | 46+ 104-
1)	row 70: | 45+ 104-
1)	row 69: | 44+ 103-
1)	row 68: | 44+ 102-
1)	row 67: | 43+ 102-
1)	row 66: | 42+ 101-
1)	row 65: | 42+ 101-
1)	row 64: | 41+ 100-
1)	row 63: | 40+ 99-
1)	row 62: | 40+ 99-
1)	row 61: | 39+ 98-
1)	row 60: | 38+ 97-
1)	row 59: | 38+ 97-
1)	row 58: | 37+ 96-
1)	row 57: | 36+ 95-
1)	row 56: | 36+ 95-
1)	row 55: | 35+ 94-
1)	row 54: | 34+ 93-
1)	row 53: | 34+ 93-
1)	row 52: | 33+ 92-
1)	row 51: | 32+ 91-
1)	row 50: | 32+ 91-
1)	row 49: | 31+ 90-
1)	row 48: | 30+ 89-
1)	row 47: | 30+ 89-
1)	row 46: | 29+ 88-
1)	row 45: | 29+ 87-
1)	row 44: | 28+ 87-
1)	row 43: | 27+ 86-
1)	row 42: | 27+ 85-
1)	row 41: | 26+ 85-
1)	row 40: | 25+ 84-
1)	row 39: | 25+ 83-
1)	row 38: | 24+ 83-
1)	row 37: | 23+ 82-
1)	row 36: | 23+ 81-
1)	row 35: | 22+ 81-
1)	row 34: | 21+ 80-
1)	row 33: | 21+ 79-
1)	row 32: | 20+ 79-
1)	row 31: | 19+ 78-
1)	row 30: | 19+ 77-
1)	row 29: | 18+ 77-
1)	row 28: | 17+ 76- 90+ 150-
1)	row 27: | 17+ 34+ 75- 152-
1)	row 26: | 16+ 32+ 75- 154-
1)	row 25: | 15+ 30+ 74- 155-
1)	row 24: | 15+ 29+ 73- 156-
1)	row 23: | 14+ 28+ 73- 157-
1)	row 22: | 13+ 27+ 72- 157-
1)	row 21: | 13+ 27+ 71- 158-
1)	row 20: | 12+ 26+ 71- 158-
1)	row 19: | 12+ 26+ 70- 159-
1)	row 18: | 12+ 25+ 69- 159-
1)	row 17: | 11+ 25+ 69- 159-
1)	row 16: | 11+ 25+ 68- 159-
1)	row 15: | 11+ 25+ 68- 159-
1)	row 14: | 11+ 25+ 67- 159-
1)	row 13: | 11+ 25+ 66- 159-
1)	row 12: | 11+ 25+ 66- 159-
1)	row 11: | 11+ 25+ 65- 159-
1)	row 10: | 11+ 25+ 64- 159-
1)	row 9: | 12+ 26+ 64- 159-
1)	row 8: | 12+ 26+ 64- 158-
1)	row 7: | 12+ 26+ 63- 158-
1)	row 6: | 13+ 27+ 63- 157-
1)	row 5: | 13+ 27+ 62- 157-
1)	row 4: | 14+ 28+ 61- 156-
1)	row 3: | 15+ 29+ 60- 155-
1)	row 2: | 16+ 30+ 59- 154-
1)	row 1: | 18+ 32+ 58- 152-
1)	row 0: | 21+ 35+ 55- 150-
1)	{if}
1)	{(2)>(0)}
1)	{true}
1)	makebox(TEXT0)->for.y=0,asc_height,body_height,x_height,bar_height,-desc_depth,
1)	-body_depth:(TEXT0)(↑(l,y),↑(r,y));endfor.for.x=l,r:(TEXT0)(↑(x,-body_depth),↑(
1)	x,body_height));endfor.for.x=u*(1+floor(l/u))step.u.until.r-1:(TEXT0)(↑(x,-body
1)	_depth),↑(x,body_height));endfor.if.charic≠0:(TEXT0)((r+charic*pt,h!),(r+charic
1)	*pt,0.5h!));fi
1)	(TEXT0)<-screenrule
1)	{for}
1)	{-(70)}
1)	{-(90)}
1)	{loop value=0}
1)	screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
1)	n.rulepen
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(0,0)
1)	{begingroup}
1)	{((0,0))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(0,0)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(172,0)
1)	{begingroup}
1)	{((172,0))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(172,0)
1)	{addto}
1)	Path at line 21, before choices:
1)	(0,0){curl 1}
1)	 ..{curl 1}(172,0)
1)	Path at line 21, after choices:
1)	(0,0)..controls (57.33333,0) and (114.66667,0)
1)	 ..(172,0)
1)	Path at line 21, before subdivision into octants:
1)	(0,0)..controls (57.33333,0) and (114.66667,0)
1)	 ..(172,0)..controls (114.66667,0) and (57.33333,0)
1)	 ..cycle
1)	Cycle spec at line 21, after subdivision and autorounding:
1)	(0,0.5) % beginning in the first octant
1)	   ..controls (57.33333,0.5) and (114.66667,0.5)
1)	 ..(172,0.5) % segment 0
1)	% entering the second octant
1)	% entering the third octant
1)	% entering the fourth octant
1)	% entering the fifth octant
1)	   ..controls (114.66667,0.5) and (57.33333,0.5)
1)	 ..(0,0.5) % segment 1
1)	% entering the sixth octant
1)	% entering the seventh octant
1)	% entering the eighth octant
1)	 & cycle
1)	Tracing edges at line 21: (weight 1)
1)	@ Octant 1 (1 offset), from (-0.5,0) to (172.5,0)
1)	@ transition line 0, from (-0.5,0) to (0.5,0)
1)	@ transition line 1, from (172.5,0) to (172.5,0)
1)	@ Octant 2 (1 offset), from (172.5,0) to (172.5,1)
1)	@ transition line 2, from (172.5,0) to (172.5,0)
1)	@ transition line 1, from (172.5,0) to (172.5,1)
1)	(173,0)
1)	@ Octant 3 (0 offsets), from (172.5,1) to (172.5,1)
1)	@ transition line 0, from (172.5,1) to (172.5,1)
1)	@ Octant 4 (0 offsets), from (172.5,1) to (172.5,1)
1)	@ transition line 1, from (172.5,1) to (172.5,1)
1)	@ Octant 5 (1 offset), from (172.5,1) to (-0.5,1)
1)	@ transition line 0, from (172.5,1) to (171.5,1)
1)	@ transition line 1, from (-0.5,1) to (-0.5,1)
1)	@ Octant 6 (1 offset), from (-0.5,1) to (-0.5,0)
1)	@ transition line 2, from (-0.5,1) to (-0.5,1)
1)	@ transition line 1, from (-0.5,1) to (-0.5,0)
1)	(173,1)(0,1)
1)	@ Octant 7 (0 offsets), from (-0.5,0) to (-0.5,0)
1)	@ transition line 0, from (-0.5,0) to (-0.5,0)
1)	@ Octant 8 (0 offsets), from (-0.5,0) to (-0.5,0)
1)	@ transition line 1, from (-0.5,0) to (-0.5,0)
1)	(0,0).
1)	{[repeat the loop]}
1)	{loop value=250}
1)	screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
1)	n.rulepen
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(0,250)
1)	{begingroup}
1)	{((0,250))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(0,250)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(172,250)
1)	{begingroup}
1)	{((172,250))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(172,250)
1)	{addto}
1)	Path at line 21, before choices:
1)	(0,250){curl 1}
1)	 ..{curl 1}(172,250)
1)	Path at line 21, after choices:
1)	(0,250)..controls (57.33333,250) and (114.66667,250)
1)	 ..(172,250)
1)	Path at line 21, before subdivision into octants:
1)	(0,250)..controls (57.33333,250) and (114.66667,250)
1)	 ..(172,250)..controls (114.66667,250) and (57.33333,250)
1)	 ..cycle
1)	Cycle spec at line 21, after subdivision and autorounding:
1)	(0,250.5) % beginning in the first octant
1)	   ..controls (57.33333,250.5) and (114.66667,250.5)
1)	 ..(172,250.5) % segment 0
1)	% entering the second octant
1)	% entering the third octant
1)	% entering the fourth octant
1)	% entering the fifth octant
1)	   ..controls (114.66667,250.5) and (57.33333,250.5)
1)	 ..(0,250.5) % segment 1
1)	% entering the sixth octant
1)	% entering the seventh octant
1)	% entering the eighth octant
1)	 & cycle
1)	Tracing edges at line 21: (weight 1)
1)	@ Octant 1 (1 offset), from (-0.5,250) to (172.5,250)
1)	@ transition line 0, from (-0.5,250) to (0.5,250)
1)	@ transition line 1, from (172.5,250) to (172.5,250)
1)	@ Octant 2 (1 offset), from (172.5,250) to (172.5,251)
1)	@ transition line 2, from (172.5,250) to (172.5,250)
1)	@ transition line 1, from (172.5,250) to (172.5,251)
1)	(173,250)
1)	@ Octant 3 (0 offsets), from (172.5,251) to (172.5,251)
1)	@ transition line 0, from (172.5,251) to (172.5,251)
1)	@ Octant 4 (0 offsets), from (172.5,251) to (172.5,251)
1)	@ transition line 1, from (172.5,251) to (172.5,251)
1)	@ Octant 5 (1 offset), from (172.5,251) to (-0.5,251)
1)	@ transition line 0, from (172.5,251) to (171.5,251)
1)	@ transition line 1, from (-0.5,251) to (-0.5,251)
1)	@ Octant 6 (1 offset), from (-0.5,251) to (-0.5,250)
1)	@ transition line 2, from (-0.5,251) to (-0.5,251)
1)	@ transition line 1, from (-0.5,251) to (-0.5,250)
1)	(173,251)(0,251)
1)	@ Octant 7 (0 offsets), from (-0.5,250) to (-0.5,250)
1)	@ transition line 0, from (-0.5,250) to (-0.5,250)
1)	@ Octant 8 (0 offsets), from (-0.5,250) to (-0.5,250)
1)	@ transition line 1, from (-0.5,250) to (-0.5,250)
1)	(0,250).
1)	{[repeat the loop]}
1)	{loop value=270}
1)	screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
1)	n.rulepen
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(0,270)
1)	{begingroup}
1)	{((0,270))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(0,270)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(172,270)
1)	{begingroup}
1)	{((172,270))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(172,270)
1)	{addto}
1)	Path at line 21, before choices:
1)	(0,270){curl 1}
1)	 ..{curl 1}(172,270)
1)	Path at line 21, after choices:
1)	(0,270)..controls (57.33333,270) and (114.66667,270)
1)	 ..(172,270)
1)	Path at line 21, before subdivision into octants:
1)	(0,270)..controls (57.33333,270) and (114.66667,270)
1)	 ..(172,270)..controls (114.66667,270) and (57.33333,270)
1)	 ..cycle
1)	Cycle spec at line 21, after subdivision and autorounding:
1)	(0,270.5) % beginning in the first octant
1)	   ..controls (57.33333,270.5) and (114.66667,270.5)
1)	 ..(172,270.5) % segment 0
1)	% entering the second octant
1)	% entering the third octant
1)	% entering the fourth octant
1)	% entering the fifth octant
1)	   ..controls (114.66667,270.5) and (57.33333,270.5)
1)	 ..(0,270.5) % segment 1
1)	% entering the sixth octant
1)	% entering the seventh octant
1)	% entering the eighth octant
1)	 & cycle
1)	Tracing edges at line 21: (weight 1)
1)	@ Octant 1 (1 offset), from (-0.5,270) to (172.5,270)
1)	@ transition line 0, from (-0.5,270) to (0.5,270)
1)	@ transition line 1, from (172.5,270) to (172.5,270)
1)	@ Octant 2 (1 offset), from (172.5,270) to (172.5,271)
1)	@ transition line 2, from (172.5,270) to (172.5,270)
1)	@ transition line 1, from (172.5,270) to (172.5,271)
1)	(173,270)
1)	@ Octant 3 (0 offsets), from (172.5,271) to (172.5,271)
1)	@ transition line 0, from (172.5,271) to (172.5,271)
1)	@ Octant 4 (0 offsets), from (172.5,271) to (172.5,271)
1)	@ transition line 1, from (172.5,271) to (172.5,271)
1)	@ Octant 5 (1 offset), from (172.5,271) to (-0.5,271)
1)	@ transition line 0, from (172.5,271) to (171.5,271)
1)	@ transition line 1, from (-0.5,271) to (-0.5,271)
1)	@ Octant 6 (1 offset), from (-0.5,271) to (-0.5,270)
1)	@ transition line 2, from (-0.5,271) to (-0.5,271)
1)	@ transition line 1, from (-0.5,271) to (-0.5,270)
1)	(173,271)(0,271)
1)	@ Octant 7 (0 offsets), from (-0.5,270) to (-0.5,270)
1)	@ transition line 0, from (-0.5,270) to (-0.5,270)
1)	@ Octant 8 (0 offsets), from (-0.5,270) to (-0.5,270)
1)	@ transition line 1, from (-0.5,270) to (-0.5,270)
1)	(0,270).
1)	{[repeat the loop]}
1)	{loop value=165}
1)	screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
1)	n.rulepen
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(0,165)
1)	{begingroup}
1)	{((0,165))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(0,165)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(172,165)
1)	{begingroup}
1)	{((172,165))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(172,165)
1)	{addto}
1)	Path at line 21, before choices:
1)	(0,165){curl 1}
1)	 ..{curl 1}(172,165)
1)	Path at line 21, after choices:
1)	(0,165)..controls (57.33333,165) and (114.66667,165)
1)	 ..(172,165)
1)	Path at line 21, before subdivision into octants:
1)	(0,165)..controls (57.33333,165) and (114.66667,165)
1)	 ..(172,165)..controls (114.66667,165) and (57.33333,165)
1)	 ..cycle
1)	Cycle spec at line 21, after subdivision and autorounding:
1)	(0,165.5) % beginning in the first octant
1)	   ..controls (57.33333,165.5) and (114.66667,165.5)
1)	 ..(172,165.5) % segment 0
1)	% entering the second octant
1)	% entering the third octant
1)	% entering the fourth octant
1)	% entering the fifth octant
1)	   ..controls (114.66667,165.5) and (57.33333,165.5)
1)	 ..(0,165.5) % segment 1
1)	% entering the sixth octant
1)	% entering the seventh octant
1)	% entering the eighth octant
1)	 & cycle
1)	Tracing edges at line 21: (weight 1)
1)	@ Octant 1 (1 offset), from (-0.5,165) to (172.5,165)
1)	@ transition line 0, from (-0.5,165) to (0.5,165)
1)	@ transition line 1, from (172.5,165) to (172.5,165)
1)	@ Octant 2 (1 offset), from (172.5,165) to (172.5,166)
1)	@ transition line 2, from (172.5,165) to (172.5,165)
1)	@ transition line 1, from (172.5,165) to (172.5,166)
1)	(173,165)
1)	@ Octant 3 (0 offsets), from (172.5,166) to (172.5,166)
1)	@ transition line 0, from (172.5,166) to (172.5,166)
1)	@ Octant 4 (0 offsets), from (172.5,166) to (172.5,166)
1)	@ transition line 1, from (172.5,166) to (172.5,166)
1)	@ Octant 5 (1 offset), from (172.5,166) to (-0.5,166)
1)	@ transition line 0, from (172.5,166) to (171.5,166)
1)	@ transition line 1, from (-0.5,166) to (-0.5,166)
1)	@ Octant 6 (1 offset), from (-0.5,166) to (-0.5,165)
1)	@ transition line 2, from (-0.5,166) to (-0.5,166)
1)	@ transition line 1, from (-0.5,166) to (-0.5,165)
1)	(173,166)(0,166)
1)	@ Octant 7 (0 offsets), from (-0.5,165) to (-0.5,165)
1)	@ transition line 0, from (-0.5,165) to (-0.5,165)
1)	@ Octant 8 (0 offsets), from (-0.5,165) to (-0.5,165)
1)	@ transition line 1, from (-0.5,165) to (-0.5,165)
1)	(0,165).
1)	{[repeat the loop]}
1)	{loop value=90}
1)	screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
1)	n.rulepen
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(0,90)
1)	{begingroup}
1)	{((0,90))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(0,90)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(172,90)
1)	{begingroup}
1)	{((172,90))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(172,90)
1)	{addto}
1)	Path at line 21, before choices:
1)	(0,90){curl 1}
1)	 ..{curl 1}(172,90)
1)	Path at line 21, after choices:
1)	(0,90)..controls (57.33333,90) and (114.66667,90)
1)	 ..(172,90)
1)	Path at line 21, before subdivision into octants:
1)	(0,90)..controls (57.33333,90) and (114.66667,90)
1)	 ..(172,90)..controls (114.66667,90) and (57.33333,90)
1)	 ..cycle
1)	Cycle spec at line 21, after subdivision and autorounding:
1)	(0,90.5) % beginning in the first octant
1)	   ..controls (57.33333,90.5) and (114.66667,90.5)
1)	 ..(172,90.5) % segment 0
1)	% entering the second octant
1)	% entering the third octant
1)	% entering the fourth octant
1)	% entering the fifth octant
1)	   ..controls (114.66667,90.5) and (57.33333,90.5)
1)	 ..(0,90.5) % segment 1
1)	% entering the sixth octant
1)	% entering the seventh octant
1)	% entering the eighth octant
1)	 & cycle
1)	Tracing edges at line 21: (weight 1)
1)	@ Octant 1 (1 offset), from (-0.5,90) to (172.5,90)
1)	@ transition line 0, from (-0.5,90) to (0.5,90)
1)	@ transition line 1, from (172.5,90) to (172.5,90)
1)	@ Octant 2 (1 offset), from (172.5,90) to (172.5,91)
1)	@ transition line 2, from (172.5,90) to (172.5,90)
1)	@ transition line 1, from (172.5,90) to (172.5,91)
1)	(173,90)
1)	@ Octant 3 (0 offsets), from (172.5,91) to (172.5,91)
1)	@ transition line 0, from (172.5,91) to (172.5,91)
1)	@ Octant 4 (0 offsets), from (172.5,91) to (172.5,91)
1)	@ transition line 1, from (172.5,91) to (172.5,91)
1)	@ Octant 5 (1 offset), from (172.5,91) to (-0.5,91)
1)	@ transition line 0, from (172.5,91) to (171.5,91)
1)	@ transition line 1, from (-0.5,91) to (-0.5,91)
1)	@ Octant 6 (1 offset), from (-0.5,91) to (-0.5,90)
1)	@ transition line 2, from (-0.5,91) to (-0.5,91)
1)	@ transition line 1, from (-0.5,91) to (-0.5,90)
1)	(173,91)(0,91)
1)	@ Octant 7 (0 offsets), from (-0.5,90) to (-0.5,90)
1)	@ transition line 0, from (-0.5,90) to (-0.5,90)
1)	@ Octant 8 (0 offsets), from (-0.5,90) to (-0.5,90)
1)	@ transition line 1, from (-0.5,90) to (-0.5,90)
1)	(0,90).
1)	{[repeat the loop]}
1)	{loop value=-70}
1)	screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
1)	n.rulepen
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(0,-70)
1)	{begingroup}
1)	{((0,-70))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(0,-70)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(172,-70)
1)	{begingroup}
1)	{((172,-70))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(172,-70)
1)	{addto}
1)	Path at line 21, before choices:
1)	(0,-70){curl 1}
1)	 ..{curl 1}(172,-70)
1)	Path at line 21, after choices:
1)	(0,-70)..controls (57.33333,-70) and (114.66667,-70)
1)	 ..(172,-70)
1)	Path at line 21, before subdivision into octants:
1)	(0,-70)..controls (57.33333,-70) and (114.66667,-70)
1)	 ..(172,-70)..controls (114.66667,-70) and (57.33333,-70)
1)	 ..cycle
1)	Cycle spec at line 21, after subdivision and autorounding:
1)	(0,-69.5) % beginning in the first octant
1)	   ..controls (57.33333,-69.5) and (114.66667,-69.5)
1)	 ..(172,-69.5) % segment 0
1)	% entering the second octant
1)	% entering the third octant
1)	% entering the fourth octant
1)	% entering the fifth octant
1)	   ..controls (114.66667,-69.5) and (57.33333,-69.5)
1)	 ..(0,-69.5) % segment 1
1)	% entering the sixth octant
1)	% entering the seventh octant
1)	% entering the eighth octant
1)	 & cycle
1)	Tracing edges at line 21: (weight 1)
1)	@ Octant 1 (1 offset), from (-0.5,-70) to (172.5,-70)
1)	@ transition line 0, from (-0.5,-70) to (0.5,-70)
1)	@ transition line 1, from (172.5,-70) to (172.5,-70)
1)	@ Octant 2 (1 offset), from (172.5,-70) to (172.5,-69)
1)	@ transition line 2, from (172.5,-70) to (172.5,-70)
1)	@ transition line 1, from (172.5,-70) to (172.5,-69)
1)	(173,-70)
1)	@ Octant 3 (0 offsets), from (172.5,-69) to (172.5,-69)
1)	@ transition line 0, from (172.5,-69) to (172.5,-69)
1)	@ Octant 4 (0 offsets), from (172.5,-69) to (172.5,-69)
1)	@ transition line 1, from (172.5,-69) to (172.5,-69)
1)	@ Octant 5 (1 offset), from (172.5,-69) to (-0.5,-69)
1)	@ transition line 0, from (172.5,-69) to (171.5,-69)
1)	@ transition line 1, from (-0.5,-69) to (-0.5,-69)
1)	@ Octant 6 (1 offset), from (-0.5,-69) to (-0.5,-70)
1)	@ transition line 2, from (-0.5,-69) to (-0.5,-69)
1)	@ transition line 1, from (-0.5,-69) to (-0.5,-70)
1)	(173,-69)(0,-69)
1)	@ Octant 7 (0 offsets), from (-0.5,-70) to (-0.5,-70)
1)	@ transition line 0, from (-0.5,-70) to (-0.5,-70)
1)	@ Octant 8 (0 offsets), from (-0.5,-70) to (-0.5,-70)
1)	@ transition line 1, from (-0.5,-70) to (-0.5,-70)
1)	(0,-70).
1)	{[repeat the loop]}
1)	{loop value=-90}
1)	screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
1)	n.rulepen
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(0,-90)
1)	{begingroup}
1)	{((0,-90))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(0,-90)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(172,-90)
1)	{begingroup}
1)	{((172,-90))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(172,-90)
1)	{addto}
1)	Path at line 21, before choices:
1)	(0,-90){curl 1}
1)	 ..{curl 1}(172,-90)
1)	Path at line 21, after choices:
1)	(0,-90)..controls (57.33333,-90) and (114.66667,-90)
1)	 ..(172,-90)
1)	Path at line 21, before subdivision into octants:
1)	(0,-90)..controls (57.33333,-90) and (114.66667,-90)
1)	 ..(172,-90)..controls (114.66667,-90) and (57.33333,-90)
1)	 ..cycle
1)	Cycle spec at line 21, after subdivision and autorounding:
1)	(0,-89.5) % beginning in the first octant
1)	   ..controls (57.33333,-89.5) and (114.66667,-89.5)
1)	 ..(172,-89.5) % segment 0
1)	% entering the second octant
1)	% entering the third octant
1)	% entering the fourth octant
1)	% entering the fifth octant
1)	   ..controls (114.66667,-89.5) and (57.33333,-89.5)
1)	 ..(0,-89.5) % segment 1
1)	% entering the sixth octant
1)	% entering the seventh octant
1)	% entering the eighth octant
1)	 & cycle
1)	Tracing edges at line 21: (weight 1)
1)	@ Octant 1 (1 offset), from (-0.5,-90) to (172.5,-90)
1)	@ transition line 0, from (-0.5,-90) to (0.5,-90)
1)	@ transition line 1, from (172.5,-90) to (172.5,-90)
1)	@ Octant 2 (1 offset), from (172.5,-90) to (172.5,-89)
1)	@ transition line 2, from (172.5,-90) to (172.5,-90)
1)	@ transition line 1, from (172.5,-90) to (172.5,-89)
1)	(173,-90)
1)	@ Octant 3 (0 offsets), from (172.5,-89) to (172.5,-89)
1)	@ transition line 0, from (172.5,-89) to (172.5,-89)
1)	@ Octant 4 (0 offsets), from (172.5,-89) to (172.5,-89)
1)	@ transition line 1, from (172.5,-89) to (172.5,-89)
1)	@ Octant 5 (1 offset), from (172.5,-89) to (-0.5,-89)
1)	@ transition line 0, from (172.5,-89) to (171.5,-89)
1)	@ transition line 1, from (-0.5,-89) to (-0.5,-89)
1)	@ Octant 6 (1 offset), from (-0.5,-89) to (-0.5,-90)
1)	@ transition line 2, from (-0.5,-89) to (-0.5,-89)
1)	@ transition line 1, from (-0.5,-89) to (-0.5,-90)
1)	(173,-89)(0,-89)
1)	@ Octant 7 (0 offsets), from (-0.5,-90) to (-0.5,-90)
1)	@ transition line 0, from (-0.5,-90) to (-0.5,-90)
1)	@ Octant 8 (0 offsets), from (-0.5,-90) to (-0.5,-90)
1)	@ transition line 1, from (-0.5,-90) to (-0.5,-90)
1)	(0,-90).
1)	{[repeat the loop]}
1)	{for}
1)	{loop value=0}
1)	screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
1)	n.rulepen
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{-(90)}
1)	(EXPR2)<-(0,-90)
1)	{begingroup}
1)	{((0,-90))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(0,-90)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(0,270)
1)	{begingroup}
1)	{((0,270))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(0,270)
1)	{addto}
1)	Path at line 21, before choices:
1)	(0,-90){curl 1}
1)	 ..{curl 1}(0,270)
1)	Path at line 21, after choices:
1)	(0,-90)..controls (0,30) and (0,150)
1)	 ..(0,270)
1)	Path at line 21, before subdivision into octants:
1)	(0,-90)..controls (0,30) and (0,150)
1)	 ..(0,270)..controls (0,150) and (0,30)
1)	 ..cycle
1)	Cycle spec at line 21, after subdivision and autorounding:
1)	(0.5,-90) % beginning in the second octant
1)	   ..controls (0.5,30) and (0.5,150)
1)	 ..(0.5,270) % segment 0
1)	% entering the third octant
1)	% entering the fourth octant
1)	% entering the fifth octant
1)	% entering the sixth octant
1)	   ..controls (0.5,150) and (0.5,30)
1)	 ..(0.5,-90) % segment 1
1)	% entering the seventh octant
1)	% entering the eighth octant
1)	% entering the first octant
1)	 & cycle
1)	Tracing edges at line 21: (weight 1)
1)	@ Octant 2 (1 offset), from (1,-90.5) to (1,270.5)
1)	@ transition line 2, from (1,-90.5) to (1,-90.5)
1)	@ transition line 1, from (1,269.5) to (1,270.5)
1)	(1,-90)
1)	@ Octant 3 (0 offsets), from (1,270.5) to (1,270.5)
1)	@ transition line 0, from (1,270.5) to (1,270.5)
1)	@ Octant 4 (0 offsets), from (1,270.5) to (1,270.5)
1)	@ transition line 1, from (1,270.5) to (1,270.5)
1)	@ Octant 5 (1 offset), from (1,270.5) to (0,270.5)
1)	@ transition line 0, from (1,270.5) to (0,270.5)
1)	@ transition line 1, from (0,270.5) to (0,270.5)
1)	@ Octant 6 (1 offset), from (0,270.5) to (0,-90.5)
1)	@ transition line 2, from (0,270.5) to (0,270.5)
1)	@ transition line 1, from (0,-89.5) to (0,-90.5)
1)	(1,271)(0,271)
1)	@ Octant 7 (0 offsets), from (0,-90.5) to (0,-90.5)
1)	@ transition line 0, from (0,-90.5) to (0,-90.5)
1)	@ Octant 8 (0 offsets), from (0,-90.5) to (0,-90.5)
1)	@ transition line 1, from (0,-90.5) to (0,-90.5)
1)	@ Octant 1 (1 offset), from (0,-90.5) to (1,-90.5)
1)	@ transition line 0, from (0,-90.5) to (1,-90.5)
1)	@ transition line 1, from (1,-90.5) to (1,-90.5)
1)	(0,-90).
1)	{[repeat the loop]}
1)	{loop value=172}
1)	screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
1)	n.rulepen
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{-(90)}
1)	(EXPR2)<-(172,-90)
1)	{begingroup}
1)	{((172,-90))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(172,-90)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(172,270)
1)	{begingroup}
1)	{((172,270))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(172,270)
1)	{addto}
1)	Path at line 21, before choices:
1)	(172,-90){curl 1}
1)	 ..{curl 1}(172,270)
1)	Path at line 21, after choices:
1)	(172,-90)..controls (172,30) and (172,150)
1)	 ..(172,270)
1)	Path at line 21, before subdivision into octants:
1)	(172,-90)..controls (172,30) and (172,150)
1)	 ..(172,270)..controls (172,150) and (172,30)
1)	 ..cycle
1)	Cycle spec at line 21, after subdivision and autorounding:
1)	(172.5,-90) % beginning in the second octant
1)	   ..controls (172.5,30) and (172.5,150)
1)	 ..(172.5,270) % segment 0
1)	% entering the third octant
1)	% entering the fourth octant
1)	% entering the fifth octant
1)	% entering the sixth octant
1)	   ..controls (172.5,150) and (172.5,30)
1)	 ..(172.5,-90) % segment 1
1)	% entering the seventh octant
1)	% entering the eighth octant
1)	% entering the first octant
1)	 & cycle
1)	Tracing edges at line 21: (weight 1)
1)	@ Octant 2 (1 offset), from (173,-90.5) to (173,270.5)
1)	@ transition line 2, from (173,-90.5) to (173,-90.5)
1)	@ transition line 1, from (173,269.5) to (173,270.5)
1)	(173,-90)
1)	@ Octant 3 (0 offsets), from (173,270.5) to (173,270.5)
1)	@ transition line 0, from (173,270.5) to (173,270.5)
1)	@ Octant 4 (0 offsets), from (173,270.5) to (173,270.5)
1)	@ transition line 1, from (173,270.5) to (173,270.5)
1)	@ Octant 5 (1 offset), from (173,270.5) to (172,270.5)
1)	@ transition line 0, from (173,270.5) to (172,270.5)
1)	@ transition line 1, from (172,270.5) to (172,270.5)
1)	@ Octant 6 (1 offset), from (172,270.5) to (172,-90.5)
1)	@ transition line 2, from (172,270.5) to (172,270.5)
1)	@ transition line 1, from (172,-89.5) to (172,-90.5)
1)	(173,271)(172,271)
1)	@ Octant 7 (0 offsets), from (172,-90.5) to (172,-90.5)
1)	@ transition line 0, from (172,-90.5) to (172,-90.5)
1)	@ Octant 8 (0 offsets), from (172,-90.5) to (172,-90.5)
1)	@ transition line 1, from (172,-90.5) to (172,-90.5)
1)	@ Octant 1 (1 offset), from (172,-90.5) to (173,-90.5)
1)	@ transition line 0, from (172,-90.5) to (173,-90.5)
1)	@ transition line 1, from (173,-90.5) to (173,-90.5)
1)	(172,-90).
1)	{[repeat the loop]}
1)	{for}
1)	{(0)/(22.00012)}
1)	{floor(0)}
1)	{(1)+(0)}
1)	{(22.00012)*(1)}
1)	{(172)-(1)}
1)	{loop value=22.00012}
1)	screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
1)	n.rulepen
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{-(90)}
1)	(EXPR2)<-(22.00012,-90)
1)	{begingroup}
1)	{((22.00012,-90))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(22.00012,-90)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(22.00012,270)
1)	{begingroup}
1)	{((22.00012,270))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(22.00012,270)
1)	{addto}
1)	Path at line 21, before choices:
1)	(22.00012,-90){curl 1}
1)	 ..{curl 1}(22.00012,270)
1)	Path at line 21, after choices:
1)	(22.00012,-90)..controls (22.00012,30) and (22.00012,150)
1)	 ..(22.00012,270)
1)	Path at line 21, before subdivision into octants:
1)	(22.00012,-90)..controls (22.00012,30) and (22.00012,150)
1)	 ..(22.00012,270)..controls (22.00012,150) and (22.00012,30)
1)	 ..cycle
1)	Cycle spec at line 21, after subdivision and autorounding:
1)	(22.5,-90) % beginning in the second octant
1)	   ..controls (22.5,30) and (22.5,150)
1)	 ..(22.5,270) % segment 0
1)	% entering the third octant
1)	% entering the fourth octant
1)	% entering the fifth octant
1)	% entering the sixth octant
1)	   ..controls (22.5,150) and (22.5,30)
1)	 ..(22.5,-90) % segment 1
1)	% entering the seventh octant
1)	% entering the eighth octant
1)	% entering the first octant
1)	 & cycle
1)	Tracing edges at line 21: (weight 1)
1)	@ Octant 2 (1 offset), from (23,-90.5) to (23,270.5)
1)	@ transition line 2, from (23,-90.5) to (23,-90.5)
1)	@ transition line 1, from (23,269.5) to (23,270.5)
1)	(23,-90)
1)	@ Octant 3 (0 offsets), from (23,270.5) to (23,270.5)
1)	@ transition line 0, from (23,270.5) to (23,270.5)
1)	@ Octant 4 (0 offsets), from (23,270.5) to (23,270.5)
1)	@ transition line 1, from (23,270.5) to (23,270.5)
1)	@ Octant 5 (1 offset), from (23,270.5) to (22,270.5)
1)	@ transition line 0, from (23,270.5) to (22,270.5)
1)	@ transition line 1, from (22,270.5) to (22,270.5)
1)	@ Octant 6 (1 offset), from (22,270.5) to (22,-90.5)
1)	@ transition line 2, from (22,270.5) to (22,270.5)
1)	@ transition line 1, from (22,-89.5) to (22,-90.5)
1)	(23,271)(22,271)
1)	@ Octant 7 (0 offsets), from (22,-90.5) to (22,-90.5)
1)	@ transition line 0, from (22,-90.5) to (22,-90.5)
1)	@ Octant 8 (0 offsets), from (22,-90.5) to (22,-90.5)
1)	@ transition line 1, from (22,-90.5) to (22,-90.5)
1)	@ Octant 1 (1 offset), from (22,-90.5) to (23,-90.5)
1)	@ transition line 0, from (22,-90.5) to (23,-90.5)
1)	@ transition line 1, from (23,-90.5) to (23,-90.5)
1)	(22,-90).
1)	{[repeat the loop]}
1)	{loop value=44.00024}
1)	screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
1)	n.rulepen
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{-(90)}
1)	(EXPR2)<-(44.00024,-90)
1)	{begingroup}
1)	{((44.00024,-90))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(44.00024,-90)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(44.00024,270)
1)	{begingroup}
1)	{((44.00024,270))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(44.00024,270)
1)	{addto}
1)	Path at line 21, before choices:
1)	(44.00024,-90){curl 1}
1)	 ..{curl 1}(44.00024,270)
1)	Path at line 21, after choices:
1)	(44.00024,-90)..controls (44.00024,30) and (44.00024,150)
1)	 ..(44.00024,270)
1)	Path at line 21, before subdivision into octants:
1)	(44.00024,-90)..controls (44.00024,30) and (44.00024,150)
1)	 ..(44.00024,270)..controls (44.00024,150) and (44.00024,30)
1)	 ..cycle
1)	Cycle spec at line 21, after subdivision and autorounding:
1)	(44.5,-90) % beginning in the second octant
1)	   ..controls (44.5,30) and (44.5,150)
1)	 ..(44.5,270) % segment 0
1)	% entering the third octant
1)	% entering the fourth octant
1)	% entering the fifth octant
1)	% entering the sixth octant
1)	   ..controls (44.5,150) and (44.5,30)
1)	 ..(44.5,-90) % segment 1
1)	% entering the seventh octant
1)	% entering the eighth octant
1)	% entering the first octant
1)	 & cycle
1)	Tracing edges at line 21: (weight 1)
1)	@ Octant 2 (1 offset), from (45,-90.5) to (45,270.5)
1)	@ transition line 2, from (45,-90.5) to (45,-90.5)
1)	@ transition line 1, from (45,269.5) to (45,270.5)
1)	(45,-90)
1)	@ Octant 3 (0 offsets), from (45,270.5) to (45,270.5)
1)	@ transition line 0, from (45,270.5) to (45,270.5)
1)	@ Octant 4 (0 offsets), from (45,270.5) to (45,270.5)
1)	@ transition line 1, from (45,270.5) to (45,270.5)
1)	@ Octant 5 (1 offset), from (45,270.5) to (44,270.5)
1)	@ transition line 0, from (45,270.5) to (44,270.5)
1)	@ transition line 1, from (44,270.5) to (44,270.5)
1)	@ Octant 6 (1 offset), from (44,270.5) to (44,-90.5)
1)	@ transition line 2, from (44,270.5) to (44,270.5)
1)	@ transition line 1, from (44,-89.5) to (44,-90.5)
1)	(45,271)(44,271)
1)	@ Octant 7 (0 offsets), from (44,-90.5) to (44,-90.5)
1)	@ transition line 0, from (44,-90.5) to (44,-90.5)
1)	@ Octant 8 (0 offsets), from (44,-90.5) to (44,-90.5)
1)	@ transition line 1, from (44,-90.5) to (44,-90.5)
1)	@ Octant 1 (1 offset), from (44,-90.5) to (45,-90.5)
1)	@ transition line 0, from (44,-90.5) to (45,-90.5)
1)	@ transition line 1, from (45,-90.5) to (45,-90.5)
1)	(44,-90).
1)	{[repeat the loop]}
1)	{loop value=66.00037}
1)	screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
1)	n.rulepen
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{-(90)}
1)	(EXPR2)<-(66.00037,-90)
1)	{begingroup}
1)	{((66.00037,-90))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(66.00037,-90)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(66.00037,270)
1)	{begingroup}
1)	{((66.00037,270))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(66.00037,270)
1)	{addto}
1)	Path at line 21, before choices:
1)	(66.00037,-90){curl 1}
1)	 ..{curl 1}(66.00037,270)
1)	Path at line 21, after choices:
1)	(66.00037,-90)..controls (66.00037,30) and (66.00037,150)
1)	 ..(66.00037,270)
1)	Path at line 21, before subdivision into octants:
1)	(66.00037,-90)..controls (66.00037,30) and (66.00037,150)
1)	 ..(66.00037,270)..controls (66.00037,150) and (66.00037,30)
1)	 ..cycle
1)	Cycle spec at line 21, after subdivision and autorounding:
1)	(66.5,-90) % beginning in the second octant
1)	   ..controls (66.5,30) and (66.5,150)
1)	 ..(66.5,270) % segment 0
1)	% entering the third octant
1)	% entering the fourth octant
1)	% entering the fifth octant
1)	% entering the sixth octant
1)	   ..controls (66.5,150) and (66.5,30)
1)	 ..(66.5,-90) % segment 1
1)	% entering the seventh octant
1)	% entering the eighth octant
1)	% entering the first octant
1)	 & cycle
1)	Tracing edges at line 21: (weight 1)
1)	@ Octant 2 (1 offset), from (67,-90.5) to (67,270.5)
1)	@ transition line 2, from (67,-90.5) to (67,-90.5)
1)	@ transition line 1, from (67,269.5) to (67,270.5)
1)	(67,-90)
1)	@ Octant 3 (0 offsets), from (67,270.5) to (67,270.5)
1)	@ transition line 0, from (67,270.5) to (67,270.5)
1)	@ Octant 4 (0 offsets), from (67,270.5) to (67,270.5)
1)	@ transition line 1, from (67,270.5) to (67,270.5)
1)	@ Octant 5 (1 offset), from (67,270.5) to (66,270.5)
1)	@ transition line 0, from (67,270.5) to (66,270.5)
1)	@ transition line 1, from (66,270.5) to (66,270.5)
1)	@ Octant 6 (1 offset), from (66,270.5) to (66,-90.5)
1)	@ transition line 2, from (66,270.5) to (66,270.5)
1)	@ transition line 1, from (66,-89.5) to (66,-90.5)
1)	(67,271)(66,271)
1)	@ Octant 7 (0 offsets), from (66,-90.5) to (66,-90.5)
1)	@ transition line 0, from (66,-90.5) to (66,-90.5)
1)	@ Octant 8 (0 offsets), from (66,-90.5) to (66,-90.5)
1)	@ transition line 1, from (66,-90.5) to (66,-90.5)
1)	@ Octant 1 (1 offset), from (66,-90.5) to (67,-90.5)
1)	@ transition line 0, from (66,-90.5) to (67,-90.5)
1)	@ transition line 1, from (67,-90.5) to (67,-90.5)
1)	(66,-90).
1)	{[repeat the loop]}
1)	{loop value=88.00049}
1)	screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
1)	n.rulepen
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{-(90)}
1)	(EXPR2)<-(88.00049,-90)
1)	{begingroup}
1)	{((88.00049,-90))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(88.00049,-90)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(88.00049,270)
1)	{begingroup}
1)	{((88.00049,270))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(88.00049,270)
1)	{addto}
1)	Path at line 21, before choices:
1)	(88.00049,-90){curl 1}
1)	 ..{curl 1}(88.00049,270)
1)	Path at line 21, after choices:
1)	(88.00049,-90)..controls (88.00049,30) and (88.00049,150)
1)	 ..(88.00049,270)
1)	Path at line 21, before subdivision into octants:
1)	(88.00049,-90)..controls (88.00049,30) and (88.00049,150)
1)	 ..(88.00049,270)..controls (88.00049,150) and (88.00049,30)
1)	 ..cycle
1)	Cycle spec at line 21, after subdivision and autorounding:
1)	(88.5,-90) % beginning in the second octant
1)	   ..controls (88.5,30) and (88.5,150)
1)	 ..(88.5,270) % segment 0
1)	% entering the third octant
1)	% entering the fourth octant
1)	% entering the fifth octant
1)	% entering the sixth octant
1)	   ..controls (88.5,150) and (88.5,30)
1)	 ..(88.5,-90) % segment 1
1)	% entering the seventh octant
1)	% entering the eighth octant
1)	% entering the first octant
1)	 & cycle
1)	Tracing edges at line 21: (weight 1)
1)	@ Octant 2 (1 offset), from (89,-90.5) to (89,270.5)
1)	@ transition line 2, from (89,-90.5) to (89,-90.5)
1)	@ transition line 1, from (89,269.5) to (89,270.5)
1)	(89,-90)
1)	@ Octant 3 (0 offsets), from (89,270.5) to (89,270.5)
1)	@ transition line 0, from (89,270.5) to (89,270.5)
1)	@ Octant 4 (0 offsets), from (89,270.5) to (89,270.5)
1)	@ transition line 1, from (89,270.5) to (89,270.5)
1)	@ Octant 5 (1 offset), from (89,270.5) to (88,270.5)
1)	@ transition line 0, from (89,270.5) to (88,270.5)
1)	@ transition line 1, from (88,270.5) to (88,270.5)
1)	@ Octant 6 (1 offset), from (88,270.5) to (88,-90.5)
1)	@ transition line 2, from (88,270.5) to (88,270.5)
1)	@ transition line 1, from (88,-89.5) to (88,-90.5)
1)	(89,271)(88,271)
1)	@ Octant 7 (0 offsets), from (88,-90.5) to (88,-90.5)
1)	@ transition line 0, from (88,-90.5) to (88,-90.5)
1)	@ Octant 8 (0 offsets), from (88,-90.5) to (88,-90.5)
1)	@ transition line 1, from (88,-90.5) to (88,-90.5)
1)	@ Octant 1 (1 offset), from (88,-90.5) to (89,-90.5)
1)	@ transition line 0, from (88,-90.5) to (89,-90.5)
1)	@ transition line 1, from (89,-90.5) to (89,-90.5)
1)	(88,-90).
1)	{[repeat the loop]}
1)	{loop value=110.00061}
1)	screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
1)	n.rulepen
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{-(90)}
1)	(EXPR2)<-(110.00061,-90)
1)	{begingroup}
1)	{((110.00061,-90))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(110.00061,-90)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(110.00061,270)
1)	{begingroup}
1)	{((110.00061,270))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(110.00061,270)
1)	{addto}
1)	Path at line 21, before choices:
1)	(110.00061,-90){curl 1}
1)	 ..{curl 1}(110.00061,270)
1)	Path at line 21, after choices:
1)	(110.00061,-90)..controls (110.00061,30) and (110.00061,150)
1)	 ..(110.00061,270)
1)	Path at line 21, before subdivision into octants:
1)	(110.00061,-90)..controls (110.00061,30) and (110.00061,150)
1)	 ..(110.00061,270)..controls (110.00061,150) and (110.00061,30)
1)	 ..cycle
1)	Cycle spec at line 21, after subdivision and autorounding:
1)	(110.5,-90) % beginning in the second octant
1)	   ..controls (110.5,30) and (110.5,150)
1)	 ..(110.5,270) % segment 0
1)	% entering the third octant
1)	% entering the fourth octant
1)	% entering the fifth octant
1)	% entering the sixth octant
1)	   ..controls (110.5,150) and (110.5,30)
1)	 ..(110.5,-90) % segment 1
1)	% entering the seventh octant
1)	% entering the eighth octant
1)	% entering the first octant
1)	 & cycle
1)	Tracing edges at line 21: (weight 1)
1)	@ Octant 2 (1 offset), from (111,-90.5) to (111,270.5)
1)	@ transition line 2, from (111,-90.5) to (111,-90.5)
1)	@ transition line 1, from (111,269.5) to (111,270.5)
1)	(111,-90)
1)	@ Octant 3 (0 offsets), from (111,270.5) to (111,270.5)
1)	@ transition line 0, from (111,270.5) to (111,270.5)
1)	@ Octant 4 (0 offsets), from (111,270.5) to (111,270.5)
1)	@ transition line 1, from (111,270.5) to (111,270.5)
1)	@ Octant 5 (1 offset), from (111,270.5) to (110,270.5)
1)	@ transition line 0, from (111,270.5) to (110,270.5)
1)	@ transition line 1, from (110,270.5) to (110,270.5)
1)	@ Octant 6 (1 offset), from (110,270.5) to (110,-90.5)
1)	@ transition line 2, from (110,270.5) to (110,270.5)
1)	@ transition line 1, from (110,-89.5) to (110,-90.5)
1)	(111,271)(110,271)
1)	@ Octant 7 (0 offsets), from (110,-90.5) to (110,-90.5)
1)	@ transition line 0, from (110,-90.5) to (110,-90.5)
1)	@ Octant 8 (0 offsets), from (110,-90.5) to (110,-90.5)
1)	@ transition line 1, from (110,-90.5) to (110,-90.5)
1)	@ Octant 1 (1 offset), from (110,-90.5) to (111,-90.5)
1)	@ transition line 0, from (110,-90.5) to (111,-90.5)
1)	@ transition line 1, from (111,-90.5) to (111,-90.5)
1)	(110,-90).
1)	{[repeat the loop]}
1)	{loop value=132.00073}
1)	screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
1)	n.rulepen
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{-(90)}
1)	(EXPR2)<-(132.00073,-90)
1)	{begingroup}
1)	{((132.00073,-90))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(132.00073,-90)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(132.00073,270)
1)	{begingroup}
1)	{((132.00073,270))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(132.00073,270)
1)	{addto}
1)	Path at line 21, before choices:
1)	(132.00073,-90){curl 1}
1)	 ..{curl 1}(132.00073,270)
1)	Path at line 21, after choices:
1)	(132.00073,-90)..controls (132.00073,30) and (132.00073,150)
1)	 ..(132.00073,270)
1)	Path at line 21, before subdivision into octants:
1)	(132.00073,-90)..controls (132.00073,30) and (132.00073,150)
1)	 ..(132.00073,270)..controls (132.00073,150) and (132.00073,30)
1)	 ..cycle
1)	Cycle spec at line 21, after subdivision and autorounding:
1)	(132.5,-90) % beginning in the second octant
1)	   ..controls (132.5,30) and (132.5,150)
1)	 ..(132.5,270) % segment 0
1)	% entering the third octant
1)	% entering the fourth octant
1)	% entering the fifth octant
1)	% entering the sixth octant
1)	   ..controls (132.5,150) and (132.5,30)
1)	 ..(132.5,-90) % segment 1
1)	% entering the seventh octant
1)	% entering the eighth octant
1)	% entering the first octant
1)	 & cycle
1)	Tracing edges at line 21: (weight 1)
1)	@ Octant 2 (1 offset), from (133,-90.5) to (133,270.5)
1)	@ transition line 2, from (133,-90.5) to (133,-90.5)
1)	@ transition line 1, from (133,269.5) to (133,270.5)
1)	(133,-90)
1)	@ Octant 3 (0 offsets), from (133,270.5) to (133,270.5)
1)	@ transition line 0, from (133,270.5) to (133,270.5)
1)	@ Octant 4 (0 offsets), from (133,270.5) to (133,270.5)
1)	@ transition line 1, from (133,270.5) to (133,270.5)
1)	@ Octant 5 (1 offset), from (133,270.5) to (132,270.5)
1)	@ transition line 0, from (133,270.5) to (132,270.5)
1)	@ transition line 1, from (132,270.5) to (132,270.5)
1)	@ Octant 6 (1 offset), from (132,270.5) to (132,-90.5)
1)	@ transition line 2, from (132,270.5) to (132,270.5)
1)	@ transition line 1, from (132,-89.5) to (132,-90.5)
1)	(133,271)(132,271)
1)	@ Octant 7 (0 offsets), from (132,-90.5) to (132,-90.5)
1)	@ transition line 0, from (132,-90.5) to (132,-90.5)
1)	@ Octant 8 (0 offsets), from (132,-90.5) to (132,-90.5)
1)	@ transition line 1, from (132,-90.5) to (132,-90.5)
1)	@ Octant 1 (1 offset), from (132,-90.5) to (133,-90.5)
1)	@ transition line 0, from (132,-90.5) to (133,-90.5)
1)	@ transition line 1, from (133,-90.5) to (133,-90.5)
1)	(132,-90).
1)	{[repeat the loop]}
1)	{loop value=154.00085}
1)	screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
1)	n.rulepen
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	{-(90)}
1)	(EXPR2)<-(154.00085,-90)
1)	{begingroup}
1)	{((154.00085,-90))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR0)<-(154.00085,-90)
1)	↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
1)	(SUFFIX0)<-
1)	(SUFFIX1)<-↑
1)	(EXPR2)<-(154.00085,270)
1)	{begingroup}
1)	{((154.00085,270))transformed((0,0,1,0,0,1))}
1)	{endgroup}
1)	(EXPR1)<-(154.00085,270)
1)	{addto}
1)	Path at line 21, before choices:
1)	(154.00085,-90){curl 1}
1)	 ..{curl 1}(154.00085,270)
1)	Path at line 21, after choices:
1)	(154.00085,-90)..controls (154.00085,30) and (154.00085,150)
1)	 ..(154.00085,270)
1)	Path at line 21, before subdivision into octants:
1)	(154.00085,-90)..controls (154.00085,30) and (154.00085,150)
1)	 ..(154.00085,270)..controls (154.00085,150) and (154.00085,30)
1)	 ..cycle
1)	Cycle spec at line 21, after subdivision and autorounding:
1)	(154.5,-90) % beginning in the second octant
1)	   ..controls (154.5,30) and (154.5,150)
1)	 ..(154.5,270) % segment 0
1)	% entering the third octant
1)	% entering the fourth octant
1)	% entering the fifth octant
1)	% entering the sixth octant
1)	   ..controls (154.5,150) and (154.5,30)
1)	 ..(154.5,-90) % segment 1
1)	% entering the seventh octant
1)	% entering the eighth octant
1)	% entering the first octant
1)	 & cycle
1)	Tracing edges at line 21: (weight 1)
1)	@ Octant 2 (1 offset), from (155,-90.5) to (155,270.5)
1)	@ transition line 2, from (155,-90.5) to (155,-90.5)
1)	@ transition line 1, from (155,269.5) to (155,270.5)
1)	(155,-90)
1)	@ Octant 3 (0 offsets), from (155,270.5) to (155,270.5)
1)	@ transition line 0, from (155,270.5) to (155,270.5)
1)	@ Octant 4 (0 offsets), from (155,270.5) to (155,270.5)
1)	@ transition line 1, from (155,270.5) to (155,270.5)
1)	@ Octant 5 (1 offset), from (155,270.5) to (154,270.5)
1)	@ transition line 0, from (155,270.5) to (154,270.5)
1)	@ transition line 1, from (154,270.5) to (154,270.5)
1)	@ Octant 6 (1 offset), from (154,270.5) to (154,-90.5)
1)	@ transition line 2, from (154,270.5) to (154,270.5)
1)	@ transition line 1, from (154,-89.5) to (154,-90.5)
1)	(155,271)(154,271)
1)	@ Octant 7 (0 offsets), from (154,-90.5) to (154,-90.5)
1)	@ transition line 0, from (154,-90.5) to (154,-90.5)
1)	@ Octant 8 (0 offsets), from (154,-90.5) to (154,-90.5)
1)	@ transition line 1, from (154,-90.5) to (154,-90.5)
1)	@ Octant 1 (1 offset), from (154,-90.5) to (155,-90.5)
1)	@ transition line 0, from (154,-90.5) to (155,-90.5)
1)	@ transition line 1, from (155,-90.5) to (155,-90.5)
1)	(154,-90).
1)	{[repeat the loop]}
1)	{if}
1)	{(0)<>(0)}
1)	{false}
1)	showit->openit;let.showit=showit_;showit
1)	openit->openwindow.currentwindow.from(0,0)to(screen_rows,screen_cols)at(-50,300
1)	)
1)	{openwindow}
1)	{-(50)}
1)	{let}
1)	showit->display.currentpicture.inwindow.currentwindow
1)	{display}
1)	{fi}
1)	{endgroup}
1)	stop<expr>->message(EXPR0);gobble(readstring)
1)	{decimal(122)}
1)	{("done with char ")&("122")}
1)	{("done with char 122")&(". ")}
1)	(EXPR0)<-"done with char 122. "
1)	{message}
1)	done with char 122. 
1)	gobble(EXPR0)->
1)	{readstring}
1)	(EXPR0)<-""
1)	) 
1)	Here is how much of METAFONT's memory you used:
1)	 172 strings out of 282
1)	 1388 string characters out of 10103
1)	 18660 words of memory out of 60001
1)	 630 symbolic tokens out of 2100
1)	 8i,62n,4r,21p,155b stack positions out of 30i,100n,100r,150p,500b
1)	Output written on STEST.GF[CM,DEK] (1 character, 1352 bytes).
**** File 2) STEST.TMP[CM,DEK]/1P/187L
2)	(114.44002,152)..controls (123.62668,152) and (132.81334,152)
2)	 ..(142,152)..controls (142,152) and (142,152)
2)	 ..(142,152)..controls (111.85333,106.33333) and (81.70665,60.66667)
2)	 ..(51.55998,15)..controls (51.55998,14.33333) and (51.55998,13.66667)
2)	 ..(51.55998,13)..controls (42.37332,13) and (33.18666,13)
2)	 ..(24,13)..controls (24,13.66667) and (24,14.33333)
2)	 ..(24,15)..controls (54.14667,60.66667) and (84.29335,106.33333)
2)	 ..(114.44002,152)..controls (114.44002,152) and (114.44002,152)
2)	 ..cycle
2)	Cycle spec at line 14, after subdivision and autorounding:
2)	(114.44002,152) % beginning in octant `En'
2)	   ..controls (123.62668,152) and (132.81334,152)
2)	 ..(142,152) % segment 0
2)	% entering octant `Es'
2)	% entering octant `Se'
2)	% entering octant `Sw'
2)	   ..controls (111.85333,106.33333) and (81.70665,60.66667)
2)	 ..(51.55998,15) % segment 2
2)	   ..controls (51.55998,14.33333) and (51.55998,13.66667)
2)	 ..(51.55998,13) % segment 3
2)	% entering octant `Ws'
2)	   ..controls (42.37332,13) and (33.18666,13)
2)	 ..(24,13) % segment 4
2)	% entering octant `Wn'
2)	% entering octant `Nw'
2)	% entering octant `Ne'
2)	   ..controls (24,13.66667) and (24,14.33333)
2)	 ..(24,15) % segment 5
2)	   ..controls (54.14667,60.66667) and (84.29335,106.33333)
2)	 ..(114.44002,152) % segment 6
2)	 & cycle
2)	>> En 0 Es Se Sw 2 3 Ws 4 Wn Nw Ne 5 6 En
2)	! Backwards path (turning number is negative).
2)	<to be read again> 
2)	                   ;
2)	p.5,l.14 ...raw stroke z1e--z2e--z3e--z4e;
2)	                                           % diagonal
2)	? e
2)	 
2)	Here is how much of METAFONT's memory you used:
2)	 168 strings out of 276
2)	 1353 string characters out of 9956
2)	 11791 words of memory out of 60001
2)	 633 symbolic tokens out of 2100
2)	 8i,62n,4r,10p,155b stack positions out of 30i,100n,300r,150p,500b
2)	Output written on STEST.GF[CM,DEK] (0 characters, 124 bytes).
***************